Algorytm Flood Fill powoduje błąd "external SIGSEGV"

Program project1;
uses crt;
var tab:array [1..10,1..10] of integer;
  y,x,a,b:integer;
  procedure init () ;
var i,j:integer;
begin
     for i:=1 to 10 do
     begin
       for j:=1 to 10 do
       begin
         tab[i,j]:=0;
       end;
     end;
end;

procedure show ();
var i,j:integer;
  begin
      for i:=1 to 10 do
     begin
       for j:=1 to 10 do
       begin
         if tab[i,j]= 9 then
         TextColor(12);
         write(tab[i,j],' ');
         TextColor(15);
       end;
       writeln();
     end;
  end;

procedure miny();
var i:integer;
begin
    for i:=1 to 40 do
    begin
        tab[Random(10),Random(10)]:=1;
    end;
end;

procedure zmien (y,x:Integer);
begin
    if (x>0)and(x<11)and(y>0)and(y<11) then
    begin
    if tab[y,x]<>1 then
    begin
    tab[y,x] :=9;

    zmien(y+1,x);
    zmien(y,x+1);
    zmien(y-1,x);
    zmien(y,x-1);
    end;
    end;
end;

begin
       a:=1;
     b:=-1;
   init();
  // miny();
   show();
   writeln('Podaj wspolrzedne Y');
   readln(y);
   writeln('Podaj wspolrzedne X');
   readln(x);
   zmien(y,x);
   show();
    readln();
  end.

zmien(y,x+1);
zmien(y-1,x);

zmien(y+1,x);
zmien(y,x+1);
zmien(y-1,x);
zmien(y,x-1);

procedure miny();
var
  i: integer;
begin
  for i := 1 to 40 do
  begin
    tab[Random(10), Random(10)] := 1;
  end;
end;

    tab[Random(10) + 1, Random(10) + 1] := 1;

zmiana (y-1,x) 

zmiana (y-1,x); zmiana (y+1,x)

if tab[y,x]<>1 then
    begin
    tab[y,x] :=9;

if tab[y,x]<>1 and tab[y,x]<>9 then

procedure zmien (r,t:Integer);
begin
    if ( (t > 0) and (t < 11) and (r > 0) and (r < 11) ) then
    begin
    if (tab[r,t] <>1) and (tab[r,t]<>9 )then
    begin
        tab[r,t] :=9;
    zmien(r+1,t);
    zmien(r-1,t);
    zmien(r,t+1);
    zmien(r,t-1);
    end;
    end;

end;