Поиск пути в лабиринте

[s2dentishe]

Помогите пожалуйста!
С помощью рекурсивной подпрограммы нужно найти пути в лабиринте (StringGrid размер n*n) из которых нужно найти самый короткий опять так же с помощью рекурсии.

[Dvijochnyk]

procedure try(i,j,z:integer);{ size 6*6}
var tmp:integer;
begin
a[i,j]:=2;{где ты находишся}
if (i=6) or (i=1) or (j=6) or (j=1)
then
begin
tmp:=z;{количество ходов к выходу}
if tmp<max then max:=tmp
end;
if (j+1<6) and (a[i,j+1]<>1) and (a[i,j+1]<>2) then
begin
try(i,j+1,z+1);

end;
if (i-1<>0)and (a[i-1,j]<>1)and(a[i-1,j]<>2)then
begin
try(i-1,j,z+1);

end;

if (j-1<>0) and (a[i,j-1]<>1) and (a[i,j-1]<>2) then
begin
try(i,j-1,z+1);

end;


if (i+1<6)and (a[i+1,j]<>1)and(a[i+1,j]<>2)then
begin
try(i+1,j,z+1);

end;



end;

[s2dentishe]

Благодарствую, щас буду пробовать