Считалка. Олимпиадная задача по программированию

program task_C;
 
var
  n: integer;
  player: integer;
  players: array of boolean;
 
procedure change(num: integer);
begin
  if num <> 1 Then
  begin
    player := 0;
    while num <> 1 do
    begin
      inc(player);
      if num mod 2 = 0 Then
      begin
        num := num div 2;  
      end
      else
    begin
        inc(num);
      end;
    end;
    n -= 1;
    players[player-1] := False;
    
    change(n);
  end;
end;
 
begin
  readln(n); 
  SetLength(players, n);
  for var i := 0 to players.Length - 1 do
    players[i] := True;
  change(n);
  
  for var i := 0 to players.Length - 1 do
    if players[i] Then
    begin
      writeln(i+1);
      break;
    end;
end.

begin
  var n := ReadInteger;
  var a := ArrGen(n, i -> i + 1).ToList;
  a.Println;
  while a.Count > 1 do
  begin
    n := a.Count;
    Print('Счет:');
    var t := 0;
    while n > 1 do
    begin
      if n mod 2 = 0 then n := n div 2 else n += 1;
      t += 1;
      Print(n)
    end;
    Println;
    Println('Удалить:', t + 'й');
    var k := (t - 1) mod a.Count;
    a := a?[k + 1:] + a?[:k];
    a.Println
  end
end.