Jonseph
随便一找就N多代码，请自行搜索

做个循环链表就行了撒..

program sda;
type
    point=^monkey;
    monkey=record
           num:integer;
           next:point;
           end;
var
    head,p,q:point;
    n,m:integer;
procedure creat(var head:point; n:integer);  建立循环链表
var
   p,q:point;  i:integer;
begin
   new(p);
   head:=p; p^.num:=1; q:=p;
   for i:=2 to n do
     begin
          new(p); p^.num:=i;
          q^.next:=p;  q:=p;
          end;
          q^.next:=head;
          end;
procedure elect(var head:point; m:integer);  这是一个报数过程
var
    p,q:point;
    i,x:integer;
begin
     p:=head;  x:=1; q:=p;
     repeat
        p:=q^.next;
        x:=x+1;
        if x mod m=0  then begin
                                q^.next:=p^.next;
                                write(p^.num:8);
                                dispose(p);
                                end
                                else q:=p;
          until p=p^.next;
          writeln;
          head:=p;
          end;
BEGIN
    write('enter m and n:');
    readln(m,n);
    creat(head,n);
    elect(head,m);
    writeln('the leader is:',head^.num);
END.

怎么样？看得懂吗？把两个过程拿出来手算一下就知道了。

会其它方法吗，教教我。