[AlexSku]

В алгоритме написано:

Код:

W[i][j] = min(W[i][j], W[i][k] + W[k][j])

а это, по-моему, и реализует кусок:

Код:

        if (a[i,k]+a[k,j] < a[i,j]) then
        begin
          a[i,j]:=a[i,k]+a[k,j];