Алгоритм нахождения, максимального потока в Графе

[densi2009]

Привет всем

перевёл на делфи
но чтото не так при некоторых исходных данных работает неправильно а при некоторых вылетает с ошибкой в памяти
тут уже введены исходные данные

кто поможет нати вчём дело
а то запарился уже двое суток искал ошибку
никак не пойму в чём дело


код в прикрепленном файле




вызывается так

A.Vesa();
A.Vyvod(a.Reshenie);


и где прописать, чтобы
Матрица конечных пропускных способностей.
выводилась в Stringgrid2;