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

[keng]

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

[keng]

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.

ВОт код!
..N..**...K
**.**......
...*..*....
...*****...
**........*
вот то что в файле но он не может найти фаил!что делать?!?!