Технический форум - Помогите решить задачу на Паскале

Привожу только цикл нахождения среднего арифметического каждого столбца

Код:

for i:=1 to n do begin

s:=0;

for j:=1 to m do

s:=s+a[m,n];

s:=s/m;

writeln('среднее арифметическое элементов ',i,' столбца равно ',s); end;

Привожу только цикл нахождения среднего арифметического каждого четного столбца

Код:

for i:=1 to n do

if i mod 2=0 then begin s:=0; 

    for j:=1 to m do

    s:=s+a[m,n];

    s:=s/m;

    writeln('среднее арифметическое элементов ',i,' столбца равно ',s); end;

Описание переменных, заполнение массива значениями и украшательства интерфейса реализуйте сами.