result := -1;
if lab[x+1,y]=1 then ChangeIfLess(result, find(x+1,y));
if lab[x-1,y]=1 then ChangeIfLess(result, find(x-1,y));
if lab[x,y-1]=1 then ChangeIfLess(result, find(x,y-1));
if lab[x,y+1]=1 then ChangeIfLess(result, find(x,y+1));

procedure ChangeIfLess(var X: integer; C: integer);
begin
  if (C>=0) and ((X<0) or (X>C)) then X:=C;
end; 

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

uses wincrt;
label 1,2,3;
var f:text;
i,j,k,xn,jn,ik,jk,n:integer;
s:array[1..100] of string;
a:array[1..2,1..100] of integer;
begin
assign(f,'labirint.in');
reset(f);
while not eof(f) do
begin
i:=i+1;
readln(f,s[i]);
end;
n:=i;
for i:=1 to n do
for j:=1 to length(s[i]) do
begin
if s[i][j]='N' then
begin
xn:=i; jn:=j;
end;
if s[i][j]='K' then
begin
ik:=i; jk:=j;
end;
end;
close(f);
i:=xn; j:=jn; k:=0;
1:while (i<>ik) or (j<>jk) do
begin
if (s[i+2][j]<>'*') and (s[i+1][j]<>'*')
and ((a[1,k-1]<>i+2) or (a[2,k-1]<>j))
and (i+2<=n) and (j<=length(s[i]))
and (i>0) and (j>0) then
begin i:=i+2; k:=k+1; a[1,k]:=i; a[2,k]:=j; goto 1; end;

if (s[i][j+2]<>'*') and (s[i][j+1]<>'*')
and ((a[1,k-1]<>i) or (a[2,k-1]<>j+2))
and (i<=n) and (j+2<=length(s[i])) and (i>0) and (j>0) then
begin j:=j+2; k:=k+1; a[1,k]:=i; a[2,k]:=j; goto 1; end;

if (s[i-2][j]<>'*') and (s[i-1][j]<>'*')
and ((a[1,k-1]<>i-2) or (a[2,k-1]<>j)) 
and (i<=n) and (j<=length(s[i])) and (i-2>0) and (j>0) then
begin i:=i-2; k:=k+1; a[1,k]:=i; a[2,k]:=j; goto 1; end;

if (s[i][j-2]<>'*') and (s[i][j-1]<>'*')
and ((a[1,k-1]<>i) or (a[2,k-1]<>j-2))
and (i<=n) and (j<=length(s[i])) and (i>0) and (j-2>0) then
begin j:=j-2; k:=k+1; a[1,k]:=i; a[2,k]:=j; goto 1; end;

writeln('NO SOLUTION');
goto 2;
end;
3:writeln(jn,' ',xn);
for i:=1 to k do
writeln(a[2,i],' ',a[1,i]);
2:
end.

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;
  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];
      if l>0 then begin
        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;
  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);
    end;
    Write('Entry ',k,': ');
    if y=0 then WriteLn('No way!') else WriteLn('Passed.');
    for j:=1 to n do for i:=1 to m do if Lab[i,j]<0 then Lab[i,j]:=k+1;
    Show;
    Write('Press Enter..');
    ReadLn;
    WriteLn
  end;
  WriteLn('Done.')
end.

Running "c:\...\pas\fp\fp110911_keng\fp110911_keng_lapp-3.exe "
██████████████████████████████████████████████████████████████
█A█  ██    █      █ █ ██ █  ██ █  ██  ████ █   █ █   █ █ █   █
█   █    ██    █  █  █  ██   █       █ █     █████   █  █   ██
█ █         ██ █  █   ██     █ ███   █  █       █   █ ██   █ █
█   █ ███  ██ ██    █  ███   ██   █        ██    █  █   █ ██ █
███ █ ██████ ██████    █    █        █   ██   █ █ █ █    █ █ █
█   █        ██   █ █    █  █ █ █  █ ██  ██     ██    █ ██   █
█   █   █  █████    █   ██   ███     ██  ██   █ ██  █  █ █  ██
█ █    █  █  █  █ █ █     ███    █  ██       █  █  ██   █    █
█     ███      ███ █████    ██  █ █    █       █    █        █
██████  █ ████ █ █     █     ██ █ ██ ██     █  █  ██     █  ██
█  █ █    ██ █       █       █ █   ███ █       █   ██     ██ █
█        █ █  █     █       ██   █      █   █  ██   █  █ █  ██
█  █   █ █  ██  █   █ █ █    █  ███ █  █     ███ █ ██ █   █  █
█  █ ██       █   █ ██  ██  █ █    █   █ ██      █ █ █    █  █
█ █  ██        ██ ███     █  █   ██ █ █  ██ ███ █  █   ██  ███
███  █     █       █  ██   █   ██    █     █       ███   ██  █
███  █        ██    █       █  ███ █ ██   █    █     █    █ ██
█   █  █       █  ███ █ █ ████ █       █ █  █     █      █ █ █
█     █           ██ ███ █ █ ██    █ ██      ██  █   █ ███   █
██████   █  █ ██ █   ██ ████    █ █    █  ████  ██        █  █
███   █  █   █    █     ██    ██ █      █   █        ██   █ ██
█    █   ██   █     ███  █     █  ██          █     █  █   █ █
██ █ █    █ █  █   ██          ███  █ █    █   ████     ███ ██
███      ██  ██   ██ ██ █     █  █ █   █  ██  █  █    ██  █ B█
██████████████████████████████████████████████████████████████

No way.. :-(  The mean Minotaur got me..

██████████████████████████████████████████████████████████████
█A█**██****█******█*█ ██ █**██*█**██**████*█***█ █***█ █ █   █
█***█****██**  █ *█**█  ██***█*******█*█*****█████***█  █   ██
█*█***  ****██ █ *█***██*** *█*███***█**█*  ****█***█*██   █*█
█***█ ███  ██ ██ ***█**███***██***█******* ██  **█**█***█ ██*█
███*█ ██████ ██████   *█****█******* █   ██   █*█ █*█****█*█*█
█***█  ***   ██   █ █ ***█**█*█*█* █ ██  ██    *██****█*██***█
█*  █ **█* █████    █  *██***███***  ██  ██   █*██* █**█ █**██
█*█  **█**█  █  █ █ █  ***███****█**██***    █**█**██ **█****█
█*****███*     ███ █████ ***██**█*█****█*     *█**  █  ******█
██████**█*████ █ █  ***█   **██*█*██*██**   █ *█* ██    *█**██
█**█*█****██ █     **█*    **█*█***███*█** ****█** ██   **██ █
█******  █ █  █    *█***** *██***█******█* *█**██** █  █*█  ██
█**█*  █ █  ██  █***█*█*█****█**███*█**█** **███*█*██ █ **█  █
█**█*██       █  *█*██**██**█ █****█***█*██ *****█*█ █****█  █
█*█**██        ██*███*****█**█***██*█*█**██ ███*█**█  *██**███
███* █     █     **█**██ **█***██****█**   █   *** ███***██  █
███* █***     ██ ***█*******█**███*█*██** █    █     █  **█ ██
█***█**█*      █ *███*█*█*████*█*******█*█  █     █   ***█ █ █
█*****█***********██*███ █ █*██****█*██**    ██  █   █*███   █
██████***█**█*██*█***██*████****█*█****█**████  ██  ******█  █
███***█**█***█****█*****██****██ █*** **█*  █***   **██***█ ██
█****█***██***█*****███**█*  **█  ██**********█*****█**█***█ █
██*█*█* **█*█**█***██******  **███  █*█****█***████*****███ ██
███******██**██***██ ██*█*****█  █ █***█**██**█  █****██  █ B█
██████████████████████████████████████████████████████████████

Running "c:\...\pas\fp\fp110911_keng\fp110911_keng_lapp-3.exe "
██████████████████████████████████████████████████████████████
█A    ██    ██  █   ██  █    █      █ █  █  ███ ██ ██ █  █ ███
█ ██ █ █ █ █       █████       █   █    ██       █ █ █   ██  █
█    ███  █  ███ █  █  ██   ██   █     ██ █████   ██████     █
█  █ ███  ██   █ █   █ █   █ █ █ ██        █    █       █ █  █
███  ██      █ ███       █    █ ██ ██ █  ██  █         █   █ █
██ █ █    █     █        █    █  █  █████     █   █   █ ██   █
████      █      █  █ █       █   █ █ ██  █ █   █    █    ████
█ █   █  █   ██ ██  █    ███   █   ██ █   ██ █    █   █ ██   █
█      ███      █       █  █ █ ██   ████ █   ██ █ ██    █ █ ██
███      █ █   ██      ██ █    ████ ██ ██  █   ███    █  █ ███
██ █  ██ █    █ █  ███ ██  █  █ █  ██  █ █████            █ ██
█        █       ██  █    ██ █ █ █   ██ █  █ █   ██   █  █ ███
█ █    █       █ █ ██       ██ █  █ █ █ █ ██ █    ███ █ ██ █ █
██  █  ██ █ █  ██ █  ██  ██    █  █ ██  █  ██ ███████     ████
█   █  ███  █     █       █  █   █   █  █  █  ███ █  █   █ ███
█ █     █ █      █ ██     ██ █       ██ █  ██  █   █  █    █ █
██                   ██     █  █  ███   ██ ██       ██   █  ██
█  ███  █  █  █  ██  █   ██   █ █   ████ ██        ███   █  ██
█     █ █   █   █   █ █  █ ███ █   ███    ██ █      ██  █   ██
█      █████ █         ██ ████     █    █              █ █   █
█  ██       █    ██   ██ █████    █  █      █    █  █ █      █
█  ██    █    ██ ██   ███        █  █ █  ██   █    █ ██  █  ██
█ ██    ██  ███  █  █     ██          █ ███     █  ███    █  █
█ █    █   █ █ █ █  █  ██ █  █  ██  ███ █     █  ██ █ ██ █ █B█
██████████████████████████████████████████████████████████████

Escaped! :-)  Hei stupid Minotaur - kiss my ass!

██████████████████████████████████████████████████████████████
█A****██****██**█***██  █****█******█*█**█**███*██ ██ █  █ ███
█ ██*█ █*█*█*******█████** ****█***█****██*******█ █ █   ██  █
█   *███**█**███ █**█**██***██***█*** *██*█████***██████     █
█  █*███**██*  █ █ **█*█***█*█*█*██********█****█*******█ █  █
███ *██******█ ███  *****█****█ ██ ██*█**██**█       **█   █ █
██ █*█**  █     █        █   *█  █  █████*****█   █ **█*██   █
████***   █      █  █ █ ******█   █ █ ██**█*█** █****█****████
█ █   █  █   ██ ██  █  **███***█   ██ █***██*█****█***█*██   █
█      ███      █     **█**█*█*██   ████*█***██*█*██****█ █ ██
███      █ █   ██     *██*█****████ ██ ██**█***███*** █**█ ███
██ █  ██ █    █ █  ███*██**█**█ █**██  █ █████******    **█ ██
█        █       ██  █****██*█*█*█***██ █  █ █* *██***█**█ ███
█ █    █       █ █ ██    ***██*█**█*█ █ █ ██ █****███*█*██ █ █
██  █  ██ █ █  ██ █  ██  ██****█**█*██  █  ██*███████*****████
█   █  ███  █     █       █  █***█***█  █  █**███*█  █***█*███
█ █     █ █      █ ██     ██ █  *****██ █  ██**█***█  █****█ █
██                   ██     █  █ *███   ██ ██**** **██** █**██
█  ███  █  █  █  ██  █   ██   █ █***████*██***    *███*  █ *██
█     █ █   █   █   █ █  █ ███ █  *███****██*█    **██* █  *██
█      █████ █         ██ ████   **█*** █****      ****█ █ **█
█  ██       █    ██   ██ █████  **█**█      █    █  █ █    **█
█  ██    █    ██ ██   ███       *█**█ █  ██   █    █ ██  █ *██
█ ██    ██  ███  █  █     ██    ***   █ ███     █  ███    █**█
█ █    █   █ █ █ █  █  ██ █  █  ██  ███ █     █  ██ █ ██ █ █B█
██████████████████████████████████████████████████████████████

// The Simplest Maze Ever
// Wall Follower, or one-hand rule
// by Lapp, forum.pascal.net.ru
// Sep 13, 2011

const
  m= 24;
  n= 60;
  x1= 1;
  y1= 1;
  x2= m;
  y2= n;
  Wall= 8;
  Chars: array[0..Wall] of char= ' ****   '+Chr(219);

var
  Maze: array[1..m,1..n] of integer;

procedure Show;
var
  i,j: integer;
begin
  WriteLn;
  for i:=0 to m+1 do begin
    for j:=0 to n+1 do begin
      if (i=0) or (i>m) or (j=0) or (j>n) then Write(Chr(219))
      else if (i=x1) and (j=y1) then Write('A')
      else if (i=x2) and (j=y2) then Write('B')
      else Write(Chars[Maze[i,j]])
    end;
    Writeln
  end;
  WriteLn
end;

var
  x,y,dx,dy,b: integer;
  s: string;

begin
  Randomize;
  for x:=1 to m do for y:=1 to n do
    if Random(100)<36 then Maze[x,y]:= Wall else Maze[x,y]:= 0;
  Maze[x1,y1]:= 0;
  Show;
  x:= x1;
  y:= y1;
  dx:= 0;
  dy:= 1;
  repeat
    if (x<1) or (y<1) or (m<x) or (n<y) or (Maze[x,y]=Wall) then begin
      dx:= -dx;
      dy:= -dy
    end
    else if (x=x2) and (y=y2) then begin
      s:= 'Escaped! :-)  Hei stupid Minotaur - kiss my ass!';
      break
    end
    else if Maze[x,y]=4 then begin
      s:= 'No way.. :-(  The mean Minotaur got me..';
      break
    end
    else begin
      Inc(Maze[x,y]);
      b:= dx;
      dx:= -dy;
      dy:= b
    end;
    x:= x+dx;
    y:= y+dy
  until false;
  Writeln(s);
  Show;
  Readln
end.

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. 

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

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