Олимпиадная задачка

const x=5;
const y=5;
var ny,nx,ky,kx,p,i,j:integer;
a:array [1..y,1..x]of integer;
procedure see;
var i,j:integer;
begin
for i:=1 to y do
begin
for j:=1 to x do
write(a[i,j]:3);
writeln();
end;
writeln();writeln();writeln();
end;
procedure null;
var i,j:integer;
begin
for i:=1 to y do
for j:=1 to x do
a[i,j]:=0;
end;
procedure aauto(ny,nx,p:integer);
begin
if ((kx<>nx)and(ky<>ny)) then 
 begin
  if (p=0) then 
    begin
    if (ny-1>0) then
      if (a[ny-1,nx]<>-66) and ((a[ny-1,nx]=0)or ((a[ny-1,nx]-a[ny,nx])>1) ) then
        begin
        a[ny-1,nx]:=a[ny,nx]+1;
     //   see;
        aauto(ny-1,nx,0);
        end;
    if (nx+1<=x) then
      if (a[ny,nx+1]<>-66) and ((a[ny,nx+1]=0)or ((a[ny,nx+1]-a[ny,nx])>1) )then
        begin
        a[ny,nx+1]:=a[ny,nx]+1;
       //  see;
        aauto(ny,nx+1,1);
        end;
     end;
  if (p=1) then
      begin
        if (nx+1<=x) then
        if (a[ny,nx+1]<>-66) and ((a[ny,nx+1]=0)or ((a[ny,nx+1]-a[ny,nx])>1) )then
        begin
        a[ny,nx+1]:=a[ny,nx]+1;
      //   see;
        aauto(ny,nx+1,1);
         end;
         if (ny+1<=y) then
         if (a[ny+1,nx]<>-66) and ((a[ny+1,nx]=0)or ((a[ny+1,nx]-a[ny,nx])>1) )then
        begin
        a[ny+1,nx]:=a[ny,nx]+1;
      //  see;
        aauto(ny+1,nx,2);
        end;
 
 
      end;
    if (p=2) then
      begin
      if (ny+1<=y) then
      if (a[ny+1,nx]<>-66) and ((a[ny+1,nx]=0)or ((a[ny+1,nx]-a[ny,nx])>1) )then
       begin
        a[ny+1,nx]:=a[ny,nx]+1;
       //  see;
        aauto(ny+1,nx,2);
        end;
      if (nx-1>0) then
      if (a[ny,nx-1]<>-66) and ((a[ny,nx-1]=0)or ((a[ny-1,nx]-a[ny,nx])>1) )then
        begin
        a[ny,nx-1]:=a[ny,nx]+1;
       //  see;
       aauto(ny,nx-1,3);
        end;
      end;
    if (p=3) then
      begin
      if (nx-1>0)  then
      if (a[ny,nx-1]<>-66) and ((a[ny,nx-1]=0)or ((a[ny-1,nx]-a[ny,nx])>1) )then
        begin
        a[ny,nx-1]:=a[ny,nx]+1;
      //   see;
        aauto(ny,nx-1,3);
        end;
      if (ny-1>0)  then
      if (a[ny-1,nx]<>-66) and ((a[ny-1,nx]=0)or ((a[ny-1,nx]-a[ny,nx])>1) ) then
        begin
        a[ny-1,nx]:=a[ny,nx]+1;
       // see;
       aauto(ny-1,nx,0);
        end;
 
      end;      
 end;
end;
begin
//read(ny,nx,ky,kx);
ny:=5;
nx:=1;
ky:=1;
kx:=5;
null;
a[3,4]:=0;
a[4,2]:=0;
//if (ky<ny) then
p:=0;
//else 
//p:=1;
aauto(ny,nx,p);
writeln(a[ky,kx]);
 see;
end.