Лабиринт, ПОмогите пожалуйста с лабиринтом Опции

[keng]

Здравствуйте!Помогите пожалуйста с курсовым по Паскалю!Задание примерно состоит в том чтобы сделать программу которая ищет выход из лабиринта.Самому простейшему варианту буду очень рад(желательно с комментариями)Заранее спасибо!
PS Очень оЧЕНЬ надо А я в Паскале не бум бум)

[keng]

У меня есть некоторые мысли но нужно в одну их собрать(может кто поможет
Например, данный лабиринт можно описать в разделе CONST (описания констант) следующим образом:


const
lab: array[0..6,0..6] of byte =
((0, 0, 0, 0, 0, 0, 0),
(0, 0, 0, 1, 0, 0, 0),
(0, 1, 1, 1, 1, 1, 0),
(0, 0, 1, 0, 0, 1, 0),
(0, 1, 1, 1, 1, 1, 0),
(0, 1, 1, 0, 1, 1, 0),
(0, 0, 0, 0, 0, 0, 0));

Путь можно хранить в двумерном массиве, например

way: array[1..200,1..2] of integer;

Рекурсивная процедура выглядит примерно так:
procedure find(x,y: integer);
begin
if (x=xk)and(y=yk) then begin
writeln;
writeln('there is a way');
readkey halt
end;
lab[x,y]:=2;
if lab[x+1,y]=1 then find(x+1,y);
if lab[x-1,y]=1 then find(x-1,y);
if lab[x,y-1]=1 then find(x,y-1);
if lab[x,y+1]=1 then find(x,y+1);
lab[x,y]:=1
end;
Никак не могу это все объеденитьь!ПОмогите пожадуйста мне уже завтра сдавать(((