Проложить маршрут из одной клетки в другую

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
Type
  TField = Array Of String;
 
Procedure Move(a:TField;y,x,N:Integer;Sum:Integer;Var MinSum:Integer;Var Track:TField);
Var
  i : Integer;
  t : Char;
Begin
  If (x>N) Or (y>(N-1)) Then Exit;
  t:=a[y][x];
  a[y][x]:='#';
  Sum:=Sum+Ord(t)-Ord('0'); //Считаем к сумме
  If (x=N) And (y=(N-1)) Then
  //Пришли в конец
  If Sum<MinSum Then
  Begin
    MinSum:=Sum;
    For i:=0 To N-1 Do
    Track[i]:=a[i];
  End Else Else
  Begin
    Move(a,y,x+1,N,Sum,MinSum,Track);  //   ->
    Move(a,y+1,x,N,Sum,MinSum,Track);  //  вниз
  End;
  a[y][x]:=t;
End;
 
Var
  f : TextFile;
  Field,MinTrack : TField;
  N,i,j,MinSum : Integer;
begin
  AssignFile(f,'Input.txt');
  Reset(f);
  ReadLn(f,N);
  WriteLn(N); //На экран
  SetLength(Field,N);
  SetLength(MinTrack,N);
 
  For i:=0 To N-1 Do
  Begin
    ReadLn(f,Field[i]);
    MinTrack[i]:=Field[i];
    WriteLn(Field[i]); //На экран
  End;
  CloseFile(f);
  //Обход
  MinSum:=MaxInt;
  Move(Field,0,1,N,0,MinSum,MinTrack);
 
  //Выдача результата
  AssignFile(f,'Output.txt');
  Rewrite(f);
  WriteLn;
  For i:=0 To N-1 Do
  Begin
    For j:=1 To Length(MinTrack[i]) Do
    If MinTrack[i][j]<>'#' Then
    MinTrack[i][j]:='-';
 
    WriteLn(f,MinTrack[i]);
    WriteLn(MinTrack[i]); //На экран
  End;
  CloseFile(f);
 
  Finalize(Field);
  Finalize(MinTrack);
  WriteLn('Vypolneno !!!');
  ReadLn;
end.