В таблице клетки заполнены случайным образом цифрами от 0 до 9. Найти маршрут из клетки A(1,1) в клетку A(N,N)

const nn=20;
 
var a:array[1..nn,1..nn] of record
 
                              s:integer;
 
                              d:(up,left);
 
                            end;
 
   i,j,n:integer;
 
procedure print(i,j:integer); {печатает решение}
 
  {процедура рекурсивная для того, чтобы печатать маршрут от (1,1)
 
   до (N,N), а не наоборот, рекурсии можно было бы избежать, заведя
 
   массив длиной 2n-1}
 
begin
 
  if (i<>1)or(j<>1) then
 
    case a[i,j].d of
 
      left:print(i,j-1);
 
        up:print(i-1,j);
 
    end;
 
  writeln('(',i,',',j,')')
 
end;
 
begin
 
  readln(n);
 
  randomize;
 
  for i:=1 to n do
 
    for j:=1 to n do
 
      a[i,j].s:=random(10);
 
  for i:=2 to n do {отдельно вычислим маршруты для первой строки и
 
                    первого столбца, так как они однозначные}
 
    begin
 
      a[1,i].s:=a[1,i-1].s+a[1,i].s;
 
      a[1,i].d:=left;
 
      a[i,1].s:=a[i-1,1].s+a[i,1].s;
 
      a[i,1].d:=up
 
    end;
 
  for i:=2 to n do
 
    for j:=2 to n do
 
      if a[i-1,j].s>a[i,j-1].s then
 
        begin
 
          a[i,j].s:=a[i-1,j].s+a[i,j].s;
 
          a[i,j].d:=up
 
        end
 
      else
 
        begin
 
          a[i,j].s:=a[i,j-1].s+a[i,j].s;
 
          a[i,j].d:=left
 
        end;
 
  print(n,n)
 
end.

const
  nn = 20;
 
type
  move = (up, left);
 
var
  a: array[1..nn, 1..nn] of record
    
    s: integer;
    
    d: move;
  
  end;
  
  i, j, n: integer;
 
procedure print(i, j: integer);{печатает решение}
 
  {процедура рекурсивная для того, чтобы печатать маршрут от (1,1)
 
   до (N,N), а не наоборот, рекурсии можно было бы избежать, заведя
 
   массив длиной 2n-1}
 
begin
  
  if (i <> 1) or (j <> 1) then
    
    case a[i, j].d of
      
      left: print(i, j - 1);
      
      up: print(i - 1, j);
    
    end;
  
  writeln('(', i, ',', j, ')')
  
end;
 
begin
  
  readln(n);
  
  randomize;
  
  for i := 1 to n do
    
    for j := 1 to n do
      
      a[i, j].s := random(10);
  
  for i := 2 to n do {отдельно вычислим маршруты для первой строки и
  
                    первого столбца, так как они однозначные}
  
  begin
    
    a[1, i].s := a[1, i - 1].s + a[1, i].s;
    
    a[1, i].d := left;
    
    a[i, 1].s := a[i - 1, 1].s + a[i, 1].s;
    
    a[i, 1].d := up
    
  end;
  
  for i := 2 to n do
    
    for j := 2 to n do
      
      if a[i - 1, j].s > a[i, j - 1].s then
      
      begin
        
        a[i, j].s := a[i - 1, j].s + a[i, j].s;
        
        a[i, j].d := up
        
      end
      
      else
      
      begin
        
        a[i, j].s := a[i, j - 1].s + a[i, j].s;
        
        a[i, j].d := left
        
      end;
  
  print(n, n)
  
end.