Таблицы маршрутизации

[nastyat1996]

Помогите, пожалуйста, разобраться, нужно написать код, чтобы ответ был как в MTABLE.EXE, а у меня получается только то, что выведено в data.exe(то есть не правильный второй столбец), как можно исправить?

uses crt;
const MaxN = 5;
INF = 1000; 
type Matrix = array[1..MaxN,1..MaxN] of longint;
const byk:array[1..MaxN] of char=('A','B','C','D','E');
var
a : Matrix; n: integer;
f: text;

{ввод данных из файла в переменные и вывод матрицы на экран}
procedure Input_Table(var A : Matrix; N : longint; var T : Text); 
var i, j : longint;
begin
 writeln('Matritsa svjazei:');
 while not eof(f) do
  begin
    for i := 1 to N do
    begin
        for j := 1 to N do
        begin
         read(f,a[i,j]);
          write(' ',a[i,j]);
            if (a[i,j] = 0) and (i <> j) then
             a[i,j] := INF;
        end;
        writeln;
        readln(T);
    end;
 end;
end;

{алгоритм Флойда-Уоршелла}
Procedure FU(D: matrix; V: integer);
var i,j,k: integer;
begin
for i:=1 to V do 
 D[i, i]:=0;
for k:=1 to V do 
for i:=1 to V do
for j:=1 to V do 
 if (D[i, k]<>0) and (D[k, j]<>0) and (i<>j) then
  if (D[i, k]+D[k, j]<D[i, j]) or (D[i, j]=0) then
  D[i, j]:=D[i, k]+D[k, j]; 

for i:=1 to V do
begin
for j:=1 to V do
  write(byk[i]:2,byk[j]:2,D[i, j]:3,'|   ');
  writeln; 
   
end;
end;

{основная программа}
BEGIN
clrscr;
writeln;
    assign(f,'data.txt');
    reset(f);
    readln(f,n);
writeln('Kolichestvo yzlov - ',n);
writeln;
    Input_Table(a,n,f);
    close(f);
writeln;
writeln('Rezyltat:');
FU(a, n);
 readln;
END.

[BDA]

Как исправить, не скажу - лень думать в 2 часа ночи
Во втором столбце выводится название предыдущего узла в кратчайшем пути.
Например, путь между A и C: A->D->B->C и длина 13. В таблице будет выведено A B 13.
UPD http://e-maxx.ru/algo/floyd_warshall_algorithm#3 - пишут что нужен массив предков.