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

[Batia]

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

[APAL]

type m=array[1..100,1..100] of integer; mas=array[1..100] of integer;
var A:m;

Что то я не понял: по условию матрица 4x5, а в приведенном примере массив 100x100

uses
  SysUtils;

А что используется из этого модуля?

procedure vvod(m,n:integer;var x:m);{ввел}
var i,j: integer;
begin writeln('введите матрицу');

Здесь главное чтобы сам не напутал с именем переменной и именем типа...

А вот по поводу процедуры почти никаких идей!

Даю идею: читаем условие - "Для вычисления полусуммы значений наибольшего и наименьшего элементов в произвольном столбцематрицы использовать процедуру".
Отсюда следует, что можно создать процедуру в которую будет передаваться массив и индекс столбца (можно и без передачи массива, а работать только с индексом, обращаясь к самому исходному массиву, но на этом теряется универсальность процедуры, т.е. ее так просто не перенесешь в другую программу), а возвращать будет уже результат полусуммы.
Заголовок может например выглядить так:

Type
  tM = array [1..4,1..5] of Real;
Procedure PolSum(m : tM;ii : Byte;Var mOut : Real);