Разработка транспортной задачи методом северо-западного угла в Delphi 7

Метод готовой транспортной задачи северо-западного угла в Delphi 7 состоит в следующем: просматривается матрица тарифов перевозок C , начиная с левого верхнего угла (клетки). В эту клетку записывается величина D=MIN(A,B). Она вычитается из запасов и потребностей соответствующего склада и магазина. Обнулившаяся строка или столбец исключаются из рассмотрения, затем процесс опять повторяется для левой верхней клетки оставшейся матрицы и так до тех пор, пока весь запас товаров не будет исчерпан.