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

[keng]

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

[keng]

Все таки вот этот меня зацепил чем то)Я попробывал прокоментировать :

uses
  CRT; //ПОдключаем модуль с текстом

const
  mx=100; nx=100;//задаем максимальный размер лабиринта
  Left=1; Right=-1;//как вот это обозвать не знаю((
  Trace=-1;

type
  tLabyrinth=array[0..mx,0..nx]of integer;//Создаем тип лабиринт

var
  m,n,m1,n1,x,y,dx,dy,k,l,x0,i,j:integer;//Описываем переменные
  Lab:tLabyrinth;//привсваеваем Lab наш тип
  f:text;//переменная файла
  c:char;//символ

procedure Show;//процедура вывода на экран
var
  i,j:integer;
begin
  for j:=0 to n1 do begin
    for i:=0 to m1 do begin//считываем матрицу
      l:=Lab[i,j];//присваеваем переменной L каждый елемент массива
      if l>0 then begin//если L больше нуля тогда закрашиваем этот елемент и рисуем звездочку
        TextColor(l+7);
        Write('*');
        TextColor(7)
      end
      else if l=0 then Write(' ')\\если равно нулю то осавляем пустое место
      else Write('#');//если больше нуля то пишем решетку
    end;
    WriteLn
  end
end;


procedure Turn(dir:integer; var x,y:integer);//процедура поворота как она работает!?
var
  z:integer;
begin
  z:=x;//
  x:=dir*y;//дир в будующем является const я правильно понимаю?!
  y:=-dir*z
end;


procedure Step(var x,y,dx,dy:integer);//ПРоцедура шага
begin
  Turn(Left,dx,dy);//идем на лево
  while Lab[x+dx,y+dy]>0 do Turn(Right,dx,dy);//пока элементы не равны нулю (мы ходим только по нулям) поворачиваем вправо вправо
  x:=x+dx;
  y:=y+dy \\ эти две переменные для шага вперед при повороте правильно?
end;


begin
  {Read the data file}
  Assign(f,'labyrinth_0_0.dat');
  ReSet(f);//считываем из файла лабиринт
  m1:=-1;// у нас лабиринт окружен бордюрами поэтому ставим минус один
  while not EoLn(f) do begin
    Read(f,c);
    Inc(m1);\\тут определяется количество столбцов
    case c of
      '1',' ': Lab[m1,0]:=1;
      '0': Lab[m1,0]:=0
    end
  end;
  ReadLn(f);
  n1:=0;
  while not EoF(f) do begin
    Inc(n1);//определяем количество столбцов
    for i:=0 to m1 do begin
      Read(f,c);
      case c of
        '1',' ': Lab[i,n1]:=1;
        '0': Lab[i,n1]:=0
      end
    end;
    ReadLn(f)
  end;//заполняем массив
  m:=m1-1; n:=n1-1;//это тоже для бордюров или как?!
  Close(f);

  {Passing}
  k:=0;//это переменная означет какой именно вход по счету
  WriteLn('Labyrinth ',m,'x',n);
  {Probing all the entries}


ВОт тут ваще запара))   
  for x0:=m downto 1 do if Lab[x0,0]=0 then begin ///мы ищем все входы в лабиринт
    Inc(k);
    x:=x0;
    y:=1;
    dx:=0;
    dy:=1;\\\Объясните пожалуйста зачем мы вот это присваеваем все
    while (y>0)and(y<n1) do begin\\\тут я так понимаю мы делаем так чтобы он просмотривал все лабиринты
      Inc(Lab[x,y],Trace);\\\тут чтобы они не пересекались
      Step (x,y,dx,dy);///действуем согласно основному алгоритму процедуры Step
    end;
    Write('Entry ',k,': ');\\\выводим номер лабиринта
    if y=0 then WriteLn('No way!') else WriteLn('Passed.');\\\\ПОчему ве зависит от Y?????
    for j:=1 to n do for i:=1 to m do if Lab[i,j]<0 then Lab[i,j]:=k+1;\\\это делается для выведения(для Show) а что именно тут происходит?
    Show;\\выводим
    Write('Press Enter..');
    ReadLn;
    WriteLn
  end;
  WriteLn('Done.')
end. 

Люди помогите разобраться очень хочеться)))я конечно понимаю что половина моих коментариев полный бред прошу не судить строго))