Лабиринт задан двумерным массивом. Из левого верхнего угла лабиринта пройти в правый нижний

uses
  crt;
 
const
  maxn = 20;
  dx: array [1..4] of integer = (-1,  0,  1,  0);
  dy: array [1..4] of integer = (0, -1,  0,  1);
  sx = 1;
  sy = 1;
 
type
  mas = Array [0..maxn + 1, 0..maxn + 1] of integer;
//процедура ввода значений
procedure input(var shah: mas; var n, m, finisj, finisi: integer; var done: boolean);
var
  err, i, j: integer;
  str: string;
begin
  for i := 0 to maxn + 1 do 
    for j := 0 to maxn + 1 do
      shah[i, j] := -1;
  write('n(количество строк) = ');
  repeat
    readln(str);
    val(str, n, err);
    if (n < 2) or (n > 20) or (err <> 0) then writeln('Некорректные данные, повторите ввод');
  until (n >= 2) and (n <= 20) and (err = 0);
  finisj := n;
  write('m(количество столбцов) = '); 
  repeat
    readln(str);
    val(str, m, err);
    if (m < 2) or (m > 20) or (err <> 0) then writeln('Некорректные данные, повторите ввод');
  until (m >= 2) and (m <= 20) and (err = 0);
  finisi := m;
  
  for i := 1 to m do
    for j := 1 to n do
    begin
      write('a[', i, ', ', j, '] = ');
      repeat
        readln(str);
        val(str, shah[i, j], err);
        if (shah[i, j] < 0) or (shah[i, j] > 1) or (err <> 0) then writeln('Некорректные данные, повторите ввод');
      until (shah[i, j] >= 0) and (shah[i, j] <= 1) and (err = 0);
    end;
  writeln;
  done := false;
end;
//процедура вывода массива на экран
procedure vivod_lab(var shah: mas; var n, m: integer;var done:boolean);
var
  i, j: integer;
begin
  writeln;
  done := true;
    writeln('vivod:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(shah[i, j]:4);
    writeln;
  end;
end;
//рекурсивная процедура перехода по лабиринту
procedure search(xkor, ykor, def, n, m, finisj, finisi: integer; shah: mas;done:boolean);
var
  i: integer;
begin
  shah[ykor, xkor] := def;                         
  
  if (xkor = finisj) and (ykor = finisi) then         
    [B][COLOR="Red"]vivod_lab(shah, n, m,done)[/COLOR] [/B]                   
  else
    for i := 1 to 4 do                  
      if shah[ykor + dy[i], xkor + dx[i]] = 1 then   
        search(xkor + dx[i], ykor + dy[i], def + 1, n, m, finisj, finisi, shah,done);  
  shah[ykor, xkor] := 1;                         
end;
 
var
  shah: mas;
  n, m, finisj, finisi: integer;
  done: boolean;
 
begin
  clrscr;
  input(shah, n, m, finisi, finisj, done);
  vivod_lab(shah, n, m,done);
  search(sx, sy, 1, n, m, finisj, finisi, shah,done);
  if not done then writeln('Net takih.');
end.