Помогите, пожалуйста!

[Flamik]

Ребят, очень срочно нужна помощь... Пытаюсь написать программу, а она не идет.... =( В общем, есть обычная доска 8*8 и конь, который ходит во все восемь сторон. С клавиатуры вводятся начальная клетка, где он стоит, клетка, где стоит пешка, и клетка, куда коню надо попасть. Нужно посчитать минимальное количество ходов из начальной клетки в конечную, чтобы конь не заходил на клетку, где стоит пешка.
если кто-нибудь напишет хотя бы алгоритм к этой задачи, буду очень благодарна!!!заранее спасибо=)

[WOLFak]

если пешка стоит на месте то должно работать
это у меня очередь)

const
 aa:array[1..8,1..2]of integer = ((2,1),(1,2),(-1,2),(-2,1),
 (-2,-1),(-1,-2),(2,-1),(1,-2));
var
 q:array[1..1000,1..3]of integer;
 s:string;
 a:array[1..8,1..8]of boolean;
 y,x,xn,yn,p1,p2,yk,xk,xx,yy,z1,qe,qb,i,o,m,n,k,g,q1,q2:longint;
procedure fileo;
begin
 assign(input,'input.txt'); reset(input);
 assign(output,'output.txt'); rewrite(output);
end;
procedure filec;
begin
 close(input);
 close(output);
end;
begin
 fileo;
 readln(s); { в строке находятся x,y - нфчала и конца в виде например A1 B3}
{терь вводится пешка}
read(p1,p2);
a[p1,p2]:=true;
 xn:=ord(s[1])-64;
 yn:=ord(s[2])-48;
 xk:=ord(s[4])-64;
 yk:=ord(s[5])-48;
     qb:=1;
     qe:=1;
     z1:=0;
     q[1,1]:=xn;
     q[1,2]:=yn;
     q[1,3]:=0;
     a[yn,xn]:=true;
      while qe>=qb do
       begin
        x:=q[qb,1];
        y:=q[qb,2];
        z1:=q[qb,3];
        inc(qb);
        if(y=yk)and(x=xk)then
         begin
          writeln(z1);
          halt;
         end;
         for o:=1 to 8 do
          begin
           xx:=x+aa[o,1];
           yy:=y+aa[o,2];
            if(xx>0)and(yy>0)and(xx<=8)and(yy<=8)and(not a[yy,xx])then
             begin
              inc(qe);
              q[qe,1]:=xx;
              q[qe,2]:=yy;
              q[qe,3]:=z1+1;
              a[yy,xx]:=true;
             end;
          end;
       end;
    filec;
end.

[Flamik]

наверно, это будет совсем уж нагло, а можно как-нибудь объяснить, что в этой прогрмме происходит?

[WOLFak]

ну ээ... лучше сначала изучити что такое очередь)
тогда я думаю все сразу станет понятно)