Найти в коде операцию, затратную по времени

const
  H = 100000;
  H1 = 200000;
  
type
  TArr = array [0..H] of int64;
  
var
  a, b: TArr;
  s: string;
  i, x, y, r1, l1, r2, l2, k, n, k1, k2: int64;
  t: text;
  
procedure push(var a: Tarr; var r: int64; n: int64);
begin
  a[r] := n;
  r := (r + 1) mod H;
end;
 
procedure pop(var l: int64);
begin
  l := (l + 1) mod H;
end;
 
function top(a: Tarr; l: int64): int64;
begin
  top := a[l];
end;
 
function empty(r, l: int64): boolean;
begin
  empty := r = l;
end;
 
begin
  assign(t, 'card-game.in');
  reset(t);
  readln(t, n);
  r1 := n div 2 + 1;
  l1 := 1;
  r2 := n div 2 + 1;
  l2 := 1;
  k1 := n div 2;
  k2 := n div 2;
  for i := 1 to n div 2 do
    read(t, a[i]);
  for i := 1 to n div 2 do
    read(t, b[i]);
  close(t);
  k := 0;
  while not(empty(r1, l1)) and not(empty(r2, l2)) and (k <= H1) do
  begin
    x := top(a, l1);
    y := top(b, l2);
    pop(l1);
    pop(l2);
    if ((x = 0) and (y = n - 1)) then
    begin
      push(a, r1, x);
      push(a, r1, y);
    end
    else
      if ((x = n - 1) and (y = 0)) then
      begin
        push(b, r2, x);
        push(b, r2, y);
      end
      else
        if x > y then
        begin
          push(a, r1, x);
          push(a, r1, y);
        end
        else
         if y > x then
         begin
          push(b, r2, x);
          push(b, r2, y);
         end;
    inc(k);
  end;
  assign(t, 'card-game.out');
  rewrite(t);
  if k > H1 then
    writeln(t, 'draw')
  else
    begin
    if empty(r2, l2) then
      write(t, 'first ')
    else
      write(t, 'second ');
    writeln(t, k);
  end;
  close(t);
end.