约瑟夫问题pascal程序

题意

n个人(n<=100)围成一圈,从第一个人开始报数,数到m的人出列,再由下一个人重新从1开始报数,数到m的人再出圈,……依次类推,直到所有的人都出圈,请输出依次出圈人的编号.

var
n,m,i,j,tj:longint;
a:array[0..200]of longint;
begin
    read(n,m);
    fillchar(a,sizeof(a),0);
    i:=0;j:=0;tj:=0;
    repeat
         inc(i);
         if i>n then i:=1;
         if (a[i]=0) then
         begin
             inc(j);
             if j=m then
             begin
                 a[i]:=1;
                 j:=0;
                 write(i,' ');
                 inc(tj);
             end;
         end;


    until tj=n;
end.