Алгоритм Флойда

[Dashylia]

У меня такое задания:
Алгоритм Флойда для нахождения кратчайших путей между всеми парами вершин(если я сделаю так это будет правильно?)
procedure Floyd ( var A: array[1..n, 1..n] of real;
C: array [1..n, 1..n] of real; P: array [1..n,1..n] of integer);
var
i, j, k : integer;
begin
for і:= 1 to n do
for j:= 1 to n do begin
A[i, j]:= C[i, j];
P[i, j]:= 0
end;
for і:= 1 to n do
A[i, j] := 0;
for k:= 1 to n do
for і:= 1 to n do
for j:= 1 to n do
if A[i,k] + А [k, j] < A[i, j] then begin
A[i,j]:=A[i,k] + А [k, j];
P[i,j]:=k
end
end;