帮帮忙，用free pascal做约瑟夫问题（猴子选大王），请用递归做_猴子选大王程序

c++猴子选大王问题
是不是n个猴子报数选大王的题目？给20分，帮你写的明明白白，注释都可以一条条带上基本思路：将猴子进行编号放入一个素组，然后外层以个while循环，控制猴子数量，循环