Создание программы, отыскивающей проход по лабиринту

const
  { размеры }
  Rows = 5;
  Cols = 6;
 
type
  tArr = array [0..Rows+1, 0..Cols+1] of Integer;
  tCoord = record
    Row, Col : Integer;
  end;
  tStek = record
    Count : Integer;
    Coord : array [1..Rows*Cols] of tCoord;
    
    constructor;
    begin
      Count := 0;
    end;
    
    procedure Push(Point : tCoord);
    begin
      Count += 1;
      Coord[Count] := Point;
    end;
    
    function Pop: tCoord;
    const
      Zero : tCoord = (Row:0; Col:0);
    begin
      if Count > 0 then
        begin
          Result := Coord[Count];
          Count -= 1;
        end
      else
        Result := Zero;
    end;
  end;
    
 
const
  { лабиринт }
  L : tArr = (
    (2,2,2,2,2,2,2,2),
    (2,1,1,1,1,1,1,2),
    (2,0,0,1,0,0,1,2),
    (2,1,0,1,0,1,1,2),
    (2,1,0,0,0,0,0,2),
    (2,1,1,1,1,1,1,2),
    (2,2,2,2,2,2,2,2)
    );
  inCoord  : tCoord = (Row:2; Col:1); // Вход
  outCoord : tCoord = (Row:4; Col:6); // Выход
   
var
  H : tArr;
  Position : tCoord;
  Stek : tStek;
    
function Mirage(R, C, dR, dC : Integer) : Boolean;
begin
  Result := (L[R+dR, C+dC] = 0) and (H[R+dR, C+dC] = 0);
  if Result then
    H[R+dR, C+dC] := H[R, C] + 1;
end;
    
begin
  H[inCoord.Row, inCoord.Col] := 1; // Координаты входа
  
  // Поиск прохода
  var NewCicle := True;
  while (H[outCoord.Row, outCoord.Col] = 0) and NewCicle do
    begin
      NewCicle := False;
      for var Row := 1 to Rows do
        for var Col := 1 to Cols do
          if H[Row, Col] > 0 then
            begin
              NewCicle := Mirage(Row, Col, -1,  0) or NewCicle;
              NewCicle := Mirage(Row, Col, +1,  0) or NewCicle;
              NewCicle := Mirage(Row, Col,  0, -1) or NewCicle;
              NewCicle := Mirage(Row, Col,  0, +1) or NewCicle;
            end;
    end;
    
  if H[outCoord.Row, outCoord.Row] = 0 then
    begin
      WriteLn('Прохода нет!');
      Halt;
    end;
    
  // Маршрут в стек
  var V := H[outCoord.Row, outCoord.Col];
  Position := outCoord;
  Stek := tStek.Create;
  Stek.Push(Position);
  
  while V > 1 do
    begin
      V -= 1;
      if      H[Position.Row-1, Position.Col  ] = V then begin Position.Row -= 1; Stek.Push(Position); end
      else if H[Position.Row+1, Position.Col  ] = V then begin Position.Row += 1; Stek.Push(Position); end
      else if H[Position.Row  , Position.Col-1] = V then begin Position.Col -= 1; Stek.Push(Position); end
      else if H[Position.Row  , Position.Col+1] = V then begin Position.Col += 1; Stek.Push(Position); end
    end;
  
  // Получаем результат
  WriteLn('Маршрут в лабиринте:');
  while Stek.Count > 0 do
    begin
      Position := Stek.Pop;
      Write(' [', Position.Row, ',', Position.Col, ']');
    end;
  WriteLn;
end.