Задача про матрицу и одномерный массив. Опции

[Batia]

Задача такая:
**На основе матрицы A(4 строки, 5 столбцов) сформировать одномерный массив B из 5 элэментов. Каждий элемент Bk этого массива получает значение, равное полусумме ззначений наибольшего и наименьшего элементов в k-м столбце матрицы A.
Для вычисления полусуммы значений наибольшего и наименьшего элементов в произвольном столбцематрицы использовать процедуру.**
Никак не могу ее решить, а препод. что-либо объяснять отказывается.
Помогите, если сможете.

[Batia]

Теперь нужно сформировать массив, процедура возвращает нам число {полусумму}, зачит надо вызвать ее 5 раз и записать значения в B:
PolSum(A;??;mOut);
B[1]:=mOut;
PolSum(A;??;mOut);
B[2]:=mOut;...
Проделав эту операцию 5 раз, массив должен сформироваться, и его надо вывести процедурой, которую я уже приводил.
Так ли это, можно ли сделать это проще, и какой индекс столбца нужно писать при обращении, в данном случае.