Переделать код под динамическую структуру

const
  { размеры }
  Rows = 7;
  Cols = 7;
 
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 = (
                         (1, 1,  1, 1,  1, 0, 1, 1, 1),
                         (1, 0,  0, 0,  1, 0, 1, 0, 1),
                         (1, 0,  1, 0,  0, 0, 1, 0, 1),
                         (1, 0,  1, 0,  1, 0, 1, 0, 1),
                         (1, 0,  0, 0,  0, 0, 1, 0, 1),
                         (1, 0,  1, 1,  1, 1, 1, 0, 1),
                         (1, 0,  0, 1,  0, 0, 0, 0, 1),
                         (1, 1,  0, 0,  0, 1, 1, 1, 1),
                         (1, 1,  1, 1,  1, 1, 1, 1, 1)
  );
  inCoord: tCoord = (Row: 1; Col: 1); // Вход
  outCoord: tCoord = (Row: 1; Col: 7);// Выход
 
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;
    Writeln(' [', Position.Row, ',', Position.Col, ']');
  end;
  WriteLn;
end.