Лабиринт из массива

Лабиринт задан матрицей a(m,n), состоящей из 0 и 1, причем а[1,1]=0 и a[m,n]=0.
Разработать рекурсивную процедуру нахождения пути из клетки а[1,1] в a[m,n]. 
Путь должен состоять из элементов, равных 0.
Ходить можно только по вертикалям и горизонталям

Program laba11b;
type
 stil=array[0..100,0..100] of byte;
Var
 a:stil;
 i,j,m,n,b:integer;
Procedure lab(i,j:integer;b:integer);
begin
 If (i=m) and (j=n) then
  writeln('KoHeL/')
 else
 begin
  if b=1 then
  if a[i+1,j]=0 then  {!! BnpaBO !!}
  begin
   Writeln('---> A[' ,i+1, ',' ,j, ']');
   b:=1;
   lab(i+1,j,b);
  end;
   if a[i,j+1]=0 then {!! BnpaBO !!}
   begin
    Writeln('---> A[' ,i, ',' ,j+1, ']');
    b:=1;
    lab(i,j+1,b);
   end
  else
  b:=-1;
  if b=-1 then
  if a[i-1,j]=0 then  {!! BleBO !!}
  begin
   Writeln('----> A[' ,i-1, ',' ,j, ']');
   b:=-1;
   lab(i-1,j,b);
  end;
   if a[i,j+1]=0 then  {!! BleBO !!}
   begin
    Writeln('----> A[' ,i, ',' ,j+1, ']');
    b:=-1;
    lab(i,j+1,b);
   end
   else
   b:=0;
   if b=0 then
   if a[i,j-1]=0 then  {!! Bhu3 !!}
   begin
    Writeln('----> A[' ,i, ',' ,j-1, ']');
    b:=0;
    lab(i,j-1,b);
   end;
   if a[i+1,j]=0 then {!! Bhu3 !! }
   begin
    Writeln('----> A[' ,i+1, ',' ,j, ']');
    b:=0;
    lab(i+1,j,b);
   end
   else
   b:=2;
   if b=2 then
   if a[i,j+1]=0 then  {!! BBePx !!}
   begin
    Writeln('----> A[' ,i, ',' ,j-1, ']');
    b:=2;
    lab(i,j-1,b);
   end;
   if a[i-1,j]=0 then {!! BBePx !! }
   begin
    Writeln('----> A[' ,i+1, ',' ,j, ']');
    b:=2;
    lab(i+1,j,b);
   end
   else
   b:=1;
 end;
end;
begin
 Writeln('BBeDUte pa3MePHotb matPuL/bl mxn');
 Write('m=');
 readln(m);
 Write('n=');
 readln(n);
 for i:=1 to m do
  for j:=1 to n do
   begin
    Write('A[' ,i, ',' ,j, ']=');
    Readln(a[i,j]);
   end;
 for i:=0 to m+1 do
 begin
  a[i,0]:=1;
  a[i,n+1]:=1;
 end;
 for j:=1 to n+1 do
 begin
  a[0,j]:=1;
  a[m+1,j]:=1;
 end;
 for i:=0 to m+1 do
 begin
  Writeln;
  for j:=0 to n+1 do
   Write(a[i,j]);
 end;
 readln;
 b:=1;
 lab(1,1,b);
 Readln;
end.

Procedure lab(i,j:integer;b:integer);
begin
 If (i=m) and (j=n) then
    begin
      writeln('KoHeL/');
      readln;
      halt;
    end
 else

for j:=[B][I][COLOR="Red"]1[/COLOR][/I][/B] to n+1 do
 begin
  a[0,j]:=1;
  a[m+1,j]:=1;
 end;

0001111
1101101
1000001
1011111
1000000