Алгоритмы на графах

[Zaraaa]

Помогите пожалуйста сделать программу на Delphi, трудная задачка, не понимаю как делать-
Алгоритм нахождения расстояний от источника до всех вершин в бесконтурном графе:
Даны обозначения двух полей шахматной доски (например, a5 и c2). Найти минимальное число ходов, которые нужны шахматному коню для перехода с первого поля на второе.

[Poma][a]

Вот код, который решает эту задачу.. Вам осталось внести минимальные изменения..

var
        a : array [-1..40, -1..40] of Integer;
        n, x2, y2 : Integer;
 
procedure Wave(k : Integer);
var
        i, j : Integer;
begin
        if a[x2, y2] <> 0 then
                Exit;
 
        for i := 1 to n do
                for j := 1 to n do
                        if a[i, j] = k then begin
                                a[i, j] := 0;
                                if a[i-1, j-2] = 0 then
                                        a[i-1, j-2] := k+1;
                                if a[i+1, j-2] = 0 then
                                        a[i+1, j-2] := k+1;
 
                                if a[i-1, j+2] = 0 then
                                        a[i-1, j+2] := k+1;
                                if a[i+1, j+2] = 0 then
                                        a[i+1, j+2] := k+1;
 
 
                                if a[i-2, j+1] = 0 then
                                        a[i-2, j+1] := k+1;
                                if a[i-2, j-1] = 0 then
                                        a[i-2, j-1] := k+1;
 
                                if a[i+2, j+1] = 0 then
                                        a[i+2, j+1] := k+1;
                                if a[i+2, j-1] = 0 then
                                        a[i+2, j-1] := k+1;
 
 
                       end;
 
        Wave(k+1)
 
 
 
end;
 
var
 
        x1, y1, i, j : Integer;
 
begin
        Reset(input, 'input.txt');
        Assign(output, 'output.txt');
 
        ReadLn(n);
 
        ReadLn(x1, y1, x2, y2);
 
        for i := -1 to n+2 do
                for j := -1 to n+2 do
                        if (j < 1) or (i < 1) or (j > n) or (i > n) then
                                a[i][j] := -1
                        else
                                a[i][j] := 0;
 
 
 
        a[x1, y1] := 1;
        Wave(1);
 
        WriteLn(a[x2, y2]-1)
 
end.