Помогите, пожалуйста, решить задачу о максимальном потоке.

1. Найти максимальный поток через данную сеть;

Подскажите, пожалуйста, где можно взять исходник алгоритма Форда-Фалкерсона на Pascal'е.
Если у кого есть - поделитесь.

2. Указать минимальный разрез, соответствующий максимальному потоку;
3. Назовём запасом связности неориентированного графа минимальное число рёбер, которое необходимо удалить, чтобы сделать граф несвязным. Например, запас связности дерева равен 1, а запас связности цикла равен 2. Найти запас связности графа с помощью алгоритма поиска максимального потока.

может, пригодится...
http://www.tisbi.ru/resources/lib/graph/Teor3.htm