Как правильно реализовать непроходимость и генерацию стен в игре

uses crt;
const
  m = 24;
   n = 48;
 
var
  mas: array [1..n, 1..m] of char;
  r, ran: integer;
  key: char;
 
  w, x, y, nx, ny: integer;
  wall, hero, earth: char;
 
procedure pole;
begin
  for var j := 1 to m do
  begin
    for var i := 1 to n do
    begin
      r := random(ran) + 1;
      if r = 2 then
        mas[i, j] := wall//стены
      else
        mas[i, j] := earth;//пол
        textcolor(7);
      write(mas[i, j]);
    end;
    writeln();
  end;
end;
 
 
begin
  //задаем переменные
  hero := '@';
  earth := ' ';
  wall := '#';
  ran := 3;
  x := 1;
  y := 1;
  w := 1;
  hidecursor;
  pole;
  while w = 1 do
  begin
    if x > n then
      x := n;
    if x < 1 then
      x := 1;
    if y > m then
      y := m;
    if y < 1 then
      y := 1;
    
    gotoxy(x, y);textcolor(12);write(hero);
    nx := x;
    ny := y;
    key := readkey;
    
    case key of
      #38: begin y := y - 1; end;
      #40: begin y := y + 1; end;
      #37: begin x := x - 1;end;
      #39: begin x := x + 1;end;
      end;
    gotoxy(nx, ny);textcolor(7);write(earth);
  end;
  
end.

mas: array [1..n, 1..m] of char;

mas: array [1..n, 1..m] of Byte;

uses crt;
 
const
  Rows = 24;
  Cols = 48;
 
var mas : array [1..Rows, 1..Cols] of Byte;
 
type
  tHero = class
    X, Y : Integer;
    
    constructor;
    begin
      (X, Y) := (1, 1);
    end;
 
    procedure Show;
    begin
      GoToXY(X+1, Y+1);
      TextColor(12);
      Write('@');
    end;
    
    procedure left; begin if (X > 1) and (mas[Y, X-1] = 0) then X -= 1; end;
    procedure right; begin if (X < Cols) and (mas[Y, X+1] = 0) then X += 1; end;
    procedure up; begin if (Y > 1) and (mas[Y-1, X] = 0) then Y -= 1; end;
    procedure down; begin if (Y < Rows) and (mas[Y+1, X] = 0) then Y += 1; end;
  end;
 
var hero : tHero;
 
procedure Init;
begin
  System.Console.WindowHeight := 27;
  Randomize;
  for var Row := 1 to Rows do
    for var Col := 1 to Cols do
      mas[Row, Col] := Random(2);
  mas[1, 1] := 0;
  hero := New tHero;
  hidecursor;
end;
 
procedure Show;
begin
  TextColor(7);
  GoToXY(1, 1);
  WriteLn('Ш'*(Cols+2));
  for var Row := 1 to Rows do
    begin
      Write('Ш');
      for var Col := 1 to Cols do
        case mas[Row, Col] of
          0 : Write(' ');
          1 : Write('#');
        end;
      WriteLn('Ш');
    end;
  WriteLn('Ш'*(Cols+2));
  hero.Show;
end;
 
begin
  Init;
  repeat
    Show;
    case ReadKey of
      #37 : hero.left;
      #38 : hero.up;
      #39 : hero.right;
      #40 : hero.down;
    end;
  until False;
end.