Лабиринт. Программа для расчета площади внутренних стен

uses
crt;
const
h=3;
var
n, m, i, j, s : integer;
a: array[1..50, 1..50] of byte;
fl: char;
 
label MetIn;
begin
MetIn: clrscr;
 
randomize;
writeln('Введите размерность');
readln(n, m);
for i := 1 to n do
for j := 1 to m do 
begin
 
if (i = 1) or (i = n) or (j = 1) or (j = m) then 
a[i, j] := 1 
else a[i, j] := random(2);
end;
a[1,1]:=0; a[1,2]:=0; a[2,2]:=0;
a[n,m]:=0; a[n,m-1]:=0; a[n+1,m]:=0;
for i := 1 to n do 
begin
for j := 1 to m do
write(a[i, j]:2);
writeln;
end;
 
writeln('For continue press any key, for exit - 1');
readln(fl);
if (fl <> '1') then goto MetIn;
end.

for i:=1 to n do
 for j:=1 to m do

uses
  crt;
 
const
  h = 3;
 
var
  n, m, i, j, s, k, p: integer;
  a: array[0..51, 0..51] of byte;
  fl: char;
 
label MetIn;
begin
  MetIn: clrscr;
 
  randomize;
  writeln('Ââåäèòå ðàçìåðíîñòü');
  readln(n, m);
  for i := 1 to n do
    for j := 1 to m do
    begin
 
      if (i = 1) or (i = n) or (j = 1) or (j = m) then
        a[i, j] := 1
      else if (i = 0) or (i = n+1) or (j = 0) or (j = m+1) then
        a[i, j] := 0
      else a[i, j] := random(2);
    end;
  a[1, 1] := 0; a[1, 2] := 0; a[2, 2] := 0;
  a[n, m] := 0; a[n, m - 1] := 0; a[n + 1, m] := 0;
  for i := 0 to n+1 do
  begin
    for j := 0 to m+1 do
      write(a[i, j]:2);
    writeln;
  end;
  
  s:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j] = 1 then
      begin
        if a[i-1,j]=0 then inc(s);
        if a[i+1,j]=0 then inc(s);
        if a[i,j+1]=0 then inc(s);
        if a[i,j-1]=0 then inc(s);
      end;
  s:=s - (n*2 + m*2 - 6);
  s:=s*3;
  writeln('s=',s);
 
  writeln('For continue press any key, for exit - 1');
  readln(fl);
  if (fl <> '1') then goto MetIn;
end.

  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:2);
    writeln;
  end;