Помогите разобраться в коде

const dx :array[0 .. 3] of integer = (0, -1, 0, 1);
      dy :array[0 .. 3] of integer = (1, 0, -1, 0);
var
    a :array[1 .. 100, 1 .. 100] of integer;
    n, m, s, c, i, j :integer;  
 
procedure go(x, y, dir :integer);
begin
    if (a[x][y] > 0) then exit;
 
    if (x + dx[dir] < 1) or (x + dx[dir] > n) or 
       (y + dy[dir] < 1) or (y + dy[dir] > n) or
       (a[x + dx[dir]][y + dy[dir]] <> 0) then dir := (dir + 1) mod 4;
    c := c + 1;
    s := s + c;
    a[x][y] := c;
    go(x + dx[dir], y + dy[dir], dir);
end;
 
begin
    write('n=');
    readln(n);
    go(n, 1, 0);
    for i := 1 to n do
     begin
      for j := 1 to n do
      write(a[i][j]:4);
      writeln;
    end;
    writeln(s);
end.

const
  dx: array[0..3] of integer = (0, -1,  0, 1); { описание смещений для ... }
  dy: array[0..3] of integer = (1,  0, -1, 0); { направлений 0..3 по x и y }
var
  a: array[1..100, 1..100] of integer;         { поле }
  n, m, s, c, i, j: integer;
 
procedure go(x, y, dir :integer); 
begin
    if (a[x][y] > 0) then exit;          { если в клетке уже побывали, выход }
    if (x + dx[dir] < 1) or (x + dx[dir] > n) or { Выйдем ли за границы,     }
       (y + dy[dir] < 1) or (y + dy[dir] > n) or { двигаясь в направлении?   }
       (a[x + dx[dir]][y + dy[dir]] <> 0)        { Или там уже были?         }
    then dir := (dir + 1) mod 4;                 { Тогда сменить направление }
    c := c + 1;                         { глоб. счетчик обработанных клеток }
    s := s + c;
    a[x][y] := c;                       { пометить тек. клетку номером шага }
    go(x + dx[dir], y + dy[dir], dir);  { обработать следующую клетку }
end;
 
begin
  write('n='); readln(n);  { запрос значения n }
  go(n, 1, 0);             { вызов рекурсивной процедуры go() }
  for i := 1 to n do begin { вывод полученного массива a: }
    for j := 1 to n do       { - вывод    }
      write(a[i][j]:4);      {   строки i }
    writeln;                 { - переход на новую строку }
  end;
  writeln(s);              { вывод s }
end.