Поиск путей из центра лабиринта до края

Program LABIRINT;
Const N=11; {размер лабиринта NxN клеток}
Type Field=Array[l..N,l..N] Of Char;
Var LAB: Field;
Procedure GO(LAB: Field; X,Y: Integer);
Begin
{Поиск путей из центра лабиринта до края - каждый найденный путь печатается)
End;
Begin
{Ввод лабиринта}
GO(LAB, N Div 2 + 1, N Div 2 + 1) {начинаем с середины}
End.
 
Procedure GO(LAB: Field; X,Y: Integer); 
Begin
If {клетка (х, у) свободна}
Then
Begin   {шаг на клетку (х,у)} 
If {дошли до края лабиринта} 
    Then {печатается найденный путь} 
    Else {попытка сделать шаг в соседние клетки в условленной последовательности} 
    {возвращение на один шаг назад} 
End 
End;
Для вывода найденных траекторий составляется процедура PRINTLAB. 
В окончательном виде программа будет выглядеть так:
 
Program LABIRINT;
Const N=11; {размер лабиринта NxN клеток}
Type Field=Array[I..N, 1..N] Of Char;
Var LAB: Field; X,Y: Integer;
Procedure PRINTLAB(LAB: Field);
{Печать найденного пути в лабиринте}
Var X,Y: Integer;
Begin
For X:=l To N Do 
Begin
For Y:=l To N Do 
Write(LAB[X,Y]); 
WriteLn 
 End; 
WriteLn 
End; {печати}
Procedure GO(LAB: Field; X,Y: Integer); 
Begin
If LAB[X,Y]=' ' {если клетка свободна}
Then
Begin
LAB[X,Y]:='+'; {делается шаг}
If (X=l) Or (X=N) Or (Y=l) Or (Y=N) {край}
Then
PRINTLAB(LAB){печатается найденный путь} 
Else
Begin {поиск следующего шага} 
GO(LAB,X+1,Y); 
GO(LAB,X, Y+l); 
GO(LAB,X-1,Y); 
GO(LAB,X,Y-1) 
End;
LAB[X,Y]:=' ' {возвращение назад} 
 End
End; {процедуры GO} 
Begin {основной программы} 
  {ввод лабиринта} 
   For X:=l To N Do 
Begin
For Y:=l To N Do
Read(LAB[X,Y]);
Readln
End;    
GO(LAB, N Div 2+1, N Div 2 + 1)  {начинаем с середины} 
End.