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

[keng]

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

[TarasBer]

> //дир в будующем является const

Чего?

Процедура Turn сделана по аналогии с процедурой обмена двух чисел:

procedure Swap(var x,y: integer);
var
  z: integer;
begin
  z:=x;
  x:=y;
  y:=z;
end;

Только в ней ещё и множитель ввели.
Короче, просто прогони эту процедуру для dir=1 и для dir=-1, и всё будет понятно:

procedure Turn(dir:integer; var x,y:integer);
var
  z:integer;
begin
  z:=x;
  x:=dir*y;
  y:=-dir*z
end;

Для dir=1 у нас получется (x,y) -> (y,-x) это поворот против часовой стрелки
Для dir=-1 получается (x,y) -> (-y,x) это поворот по часовой стрелке