Помогите с задачкой на массив

[J_o_h_n_]

Пусть п людей встают в круг и получают номера 1, 2, ..., n, считая по часовой стрелке. Затем, начиная с первого, также по часовой стрелке отсчитывается т-й человек. (Поскольку люди стоят по кругу, то при счёте за п-м следует первый). Этот т-й выходит из круга, после чего, начиная со следующего, снова отсчитывается т-й человек, и так до тех пор, пока из всего круга не останется один человек. По заданным натуральным числам п и m определить:
а) номер оставшегося в кругу человека;
б) с какого номера нужно начать счёт, чтобы последним в кругу остался человек с заданным номером k?

[Min]

наверное можно через динамику, но чет лень думать). Сделал так:

type elem=record
     next:^elem;
     value:integer;
end;

var first,CurElem:^elem;
    Count,T:integer;

procedure CreateElements(n:integer);
var tempElem:^elem;
    i:integer;
begin
 new(first);
 first^.value:=1;
 CurElem:=first;
 for i:=2 to n do
  begin
   new(tempElem);
   tempElem^.value:=i;
   CurElem^.next:=tempElem;
   CurElem:=tempElem;
  end;
 CurElem^.next:=first;
 new(first);
 first^.next:=CurElem^.next;
end;

procedure step(n:integer);
var i:integer;
begin
 for i:=1 to n do
  CurElem:=CurElem^.next;
end;

procedure DeleteNext;
begin
 CurElem^.next:=CurElem^.next^.next;
 dec(Count);
end;

begin
 readln(Count,T);
 CreateElements(Count);
 while Count>1 do
  begin
   step(T-1);
   DeleteNext;
  end;
 writeln(CurElem^.next^.value);
end.

[J_o_h_n_]

друг не то получается тут записи а мне то нужен массив

[Min]

для б) аналогично. просто разину нужно добавить/отнять

[Min]

мдэ...... можно и массив, только это не рационально получится(((((

[J_o_h_n_]

я вот А сделал а Б немогу




uses crt;
var
a,b:array[1..100] of integer;
g,pred,tek,n,i:integer;
begin
clrscr;
write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® н«Ґ¬Ґ*в®ў => ');
read(n);
write('“Ўа вм Є ¦¤л© н«Ґ¬Ґ*в Ї®Є *Ґ ®бв *Ґвбп ®¤Ё*');
gotoxy(15,2);
read(g);
randomize;
for i:=1 to n do
begin
a[i]:=random(199)-99;
write(a[i]:3);
b[i]:=a[i];
end;
writeln;
for i:=1 to n-1 do
a[i]:=i+1;
a[n]:=1;
tek:=1;
while a[tek] <> tek do
begin
for i:=1 to g-1 do
begin
pred:=tek;
tek:=a[tek];
end;
a[pred]:=a[tek];
tek:=a[tek];
end;
writeln('*®¬Ґа ®б⠢襣®бп н«Ґ¬Ґ*в Н> ',a[tek]:2,' Ё ҐЈ® §* зҐ*ЁҐ => ',b[tek]:2);
readkey;
end.

[Min]

var a:array[1..32000] of boolean;
    count,T,n,i,q,k,x:integer;
begin
 readln(count,T,k);
 n:=count;
 q:=0;
 i:=0;
 while count>1 do
  begin
   inc(i);
   if i=n+1 then i:=1;
   if not a[i] then inc(q);
   if q=T then
    begin
     dec(count);
     a[i]:=true;
     q:=0;
    end;
  end;
 for i:=1 to n do
  if not a[i] then
   begin
    x:=i;
    break;
   end;
 writeln('a) ',x);
 x:=k-x;
 if x<0 then x:=n+x+1
 else inc(x);
 writeln('b) ',x);
 readln;
end.

[J_o_h_n_]

всё кул работает спс огромное!!