Открытие ячеек в игре "Сапер"

program Project288;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
type mas=array[1..10,1..10] of integer;
 
 function prov(a:mas; x1,y1:byte):mas; forward;
 
function pole(var a:mas; x1,y1:byte):mas;
begin
a[x1,y1]:=0;
a:=prov(a,x1,y1+1);
if (a[x1,y1+1]=0) and (x1>=1) and (x1<=10) and (y1>=1) and (y1<=10) then
a:=pole(a,x1,y1+1);
 
 
pole:=a;
end;
 
function prov(a:mas; x1,y1:byte):mas;
var z:byte;
begin
z:=0;
if a[x1,y1]<>9 then begin if (a[x1+1,y1]=9) and (x1<>10) then z:=z+1;
                          if (a[x1,y1+1]=9) and (y1<>1) then z:=z+1;
                          if (a[x1+1,y1+1]=9) and (x1<>10) and (y1<>1) then z:=z+1;
                          if (a[x1+1,y1-1]=9) and (x1<>10) and (y1<>10) then z:=z+1;
                          if (a[x1,y1-1]=9) and (y1<>10) then z:=z+1;
                          if (a[x1-1,y1-1]=9) and (x1<>1) and (y1<>10) then z:=z+1;
                          if (a[x1-1,y1]=9) and (x1<>1) then z:=z+1;
                          if (a[x1-1,y1+1]=9) and (x1<>1) and (y1<>1) then z:=z+1;
                          a[x1,y1]:=z;
                                                  end;
prov:=a;
end;
 
var a:mas;
i,j,x,y,p,n,x1,y1,z:byte;
begin
randomize;
x:=0; y:=0;
n:=0; x1:=0; y1:=0; z:=0;
 
repeat
x:=random(10)+1;
y:=random(10)+1;
 
if a[x,y]<>9 then begin a[x,y]:=9; n:=n+1; end;
until n=2;
 
 for i:=1 to 10 do begin writeln;
for j:=1 to 10 do
write(a[i,j],'  ');  end;
 
 
repeat
writeln('x-? y-?');
readln(y1,x1);
 
 
if (x1<1) or (x1>10) or (y1<1) or (Y1>10) then begin writeln('error'); writeln('x-? y-?'); readln(y1,x1); end else break;
until false;
 
 
a:=prov(a,x1,y1);
if a[x1,y1]=0 then pole(a,x1,y1);
 
 
 
 for i:=1 to 10 do begin writeln;
for j:=1 to 10 do
write(a[i,j],'  ');  end;
 
 
 
readln;
end.

const dy:array[1..4]of integer = (-1,0,1,0);
dx:array[1..4]of integer = (0,1,0,-1);
 
procedure open(x,y:integer);
var i:integer;
if mas[x,y]=0 then
begin
 mas[x,y]:=9;
 for i:=1 to 4 do open(x+dx[i],y+dy[i]);
end;

procedure open(x,y:integer);
var i:integer;
begin
prov(x,y);
if a[x,y]=0 then
begin
 a[x,y]:=0;
 for i:=1 to 4 do open(x+dx[i],y+dy[i]);
end;
end;