Поиск кратчайшего пути.Метод Форда-Беллмана

[xbron]

Добрый день, не могли бы вы перевести вот этот код
Код C++

прочитать e // e[0 ... m - 1] - массив, в котором хранятся рёбра и их веса (first, second - вершины, соединяемые ребром, value - вес ребра)
for i = 0 ... n - 1
    d[i] = 2000000000
d[0] = 0
for i = 1 ... n
    for j = 0 ... m - 1
        if d[e[j].second] > d[e[j].first] + e[j].value
            d[e[j].second] = d[e[j].first] + e[j].value
        if d[e[j].first] > d[e[j].second] + e[j].value
            d[e[j].first] = d[e[j].second] + e[j].value
вывести d

На язык паскаль, буду очень признателен!

В коде предполагается, что граф хранится в vector<vector<pair<int, int>>> edges, где edges[v] — вектор всех ребер, исходящих из вершины v. В ребре edges[v][i] первое поле — конечная вершина ребра, второе — его вес. INF — это некоторая константа, заведомо большая, чем любое получающееся расстояние. Обозначает отсутствие известного пути.

На сколько я понял, то Edges.first - 1-я вершина , Edges.second - 2-я вершина , а Edges.size - вес ребра