Алгоритм Беллмана-Форда

[fkty]

Здравствуйте, помогите пожалуйста доделать задачу алгоритм Беллмана-Форда.
Как можно сделать,чтобы результат выводился по всем вершина в в виде таблицы (матрицы)? И для любой пары вершин найти сам путь кратчайшей длины?

program Ford_Bellman; 
uses crt; 
const 
inf=100000; 
Vmax=1000; 
Emax=Vmax*(Vmax-1) div 2; 
type Edges=record 
u, v, w: integer; 
end; 
Var 
e, n, w, start: integer; 
edge: array[1..Emax] of Edges; 
d: array[1..Vmax] of integer; 

{алгоритм Беллмана-Форда} 
procedure FB(n, s: integer); 
var i,j:integer; 
begin 
for i:=1 to n do 
d[i]:=inf; 
d[s]:=0; 

for i:=1 to n-1 do 
for j:=1 to e-1 do 
if d[edge[j].v]+edge[j].w<d[edge[j].u] then 
d[edge[j].u]:=d[edge[j].v]+edge[j].w; 


for i:=1 to n do if d[i]=inf then 
writeln(start, '->', i, '=', 'Not') 
else writeln(start, '->', i, '=', d[i]); 
end; 

{основной блок программы} 
var i,j:integer; 
begin 
clrscr; 
write('Введите количество вершин > '); 
read(n); 
e:=1; 

for i:=1 to n do 
for j:=1 to n do 
begin 
write('Вес ', i, '->', j, ' > '); 
read(w); 
if w<>0 then 
begin 
edge[e].v:=i; 
edge[e].u:=j; 
edge[e].w:=w; 
e:=e+1; 
end; 
end; 

start:=1; 
for i:=1 to n do 

begin 
writeln('Список кратчайших путей:'); 

FB(n, start); 
start:=start+1; 
end; 
end.

[Poma][a]

Как можно сделать,чтобы результат выводился по всем вершина в в виде таблицы (матрицы)?

Уже так и выводится

И для любой пары вершин найти сам путь кратчайшей длины?

Так и будет в матрице

[fkty]

Poma][a, сейчас там выводится все в строчку,а не как матрица. А найти сам путь кратчайшей длины имеется в виду через какие вершины проходит этот путь (например выбираем вершину 1 и 4, чтобы попасть из вершины 1 в 4 нужно пройти через вершины 2 и з, тогда выводить нужно 1,2,3,4 - кратчайший путь)

[Poma][a]

Путь восстанавливается через массив предков

[fkty]

А как это сделать?