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

[keng]

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

[TarasBer]

Ну пишешь всё это и в конце пишешь

begin
  xk := 5;
  yk := 1;
  x := 1;
  y := 3;
  n := Find(x,y);
  дальше тут пишешь, куда двигаться, короче, сам разберись
end.

> ПОжалуйста выручите блиин очень важно

А весной это почему-то не было важным, да? Ты где был полгода, если ты
> в Паскале не бум бум
?