program TestGlobalProc6c;

var
  moves: integer;
  knight_row, knight_col: integer;
  seq_row: array[0..63] of integer;
  seq_col: array[0..63] of integer;
  tour_over: boolean;

procedure next_move;
var
  nr, nc: integer;
begin
  nr := seq_row[moves];
  nc := seq_col[moves];
  knight_row := nr;
  knight_col := nc;
  moves := moves + 1;

  if moves >= 64 then
  begin
    tour_over := true;
  end;
end;

var
  i: integer;

begin
  moves := 1;
  tour_over := false;
  knight_row := 0;
  knight_col := 0;
  for i := 0 to 63 do
  begin
    seq_row[i] := i div 8;
    seq_col[i] := i mod 8;
  end;

  writeln('before: moves=', moves);
  next_move;
  writeln('after 1: moves=', moves);
  next_move;
  writeln('after 2: moves=', moves);
end.