Turbo Pascal. Транспортная задача.

Задача
Студенческие отряды СО-1, СО-2 и СО-3 численностью в а1, а2 и а3 человек принимают участие в сельскохозяйственных работах. Для уборки картофеля на полях П1, П2, П3 и П4 необходимо выделить соответственно b1, b2, b3, и b4 человек. Производительность труда студентов зависит от урожайности картофеля, а также от состава отряда и характеризуется для указанных отрядов и полей элементами матрицы [рij]3x4 (в центнерах на человека за рабочий день).
Требуется:
1)    распределить студентов по полям так, чтобы за рабочий день было убрано максимально возможное количество картофеля;
2)    определить, сколько центнеров картофеля будет убрано с четырех полей при оптимальном распределении студентов.

Демонстрация:
http://help-s.ru/files/9wMncoL

Содержание Часть 1:
TRANSP.PAS - Исходник (310 строк)
TRANSP.EXE - Скомпилированная программа
Отчет.doc - Листинг программы, описание входных и выходных данных, примеры входных и выходных данных.
INPUT.TXT - Пример входного файла

Особенности программы:
- Максимальное число элементов вектора 5 а матрицы 5x5. Изменяется по средствам изменения константы CRAZM=5;
- Первое базисное решение (опорный план) находится методом северо-западного угла.
- Ввод данных с клавиатуры или в виде файла.
- Вывод данных на экран, с возможностью сохранения в файл.