Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера - Pascal ABC (14442)

Формулировка задачи:

Дано массив А [1..n9]. Найти среднее арифметическое каждого из столбцов, имеющих четные номера. вот есть программа может ее переделать под задачу?

program rree;
uses CRT;
const n=5;
var
a:array[1..n,1..9]of integer;
b,c,d,f,r,par1,par2,w:integer;
ser:real;
begin
for b:=1 to n do
begin
c:=0;
b:=b+c;
begin
writeln('Г…Г«ГҐГ¬ГҐГ*ГІГЁ ГЇГҐГ°ГёГ®ГЈГ® Г±ГІГ®ГўГЎГ¶Гї: ',b);
if b mod 2=0 then par1:=b else ;
end;
end;
begin
for r:=1 to 9 do
begin
f:=0;
r:=r+f;
begin
writeln('Г…Г«ГҐГ¬ГҐГ*ГІГЁ Г¤Г°ГіГЈГ®ГЈГ® Г±ГІГ®ГўГЎГ¶Гї: ',r);
if r mod 2=0 then par2:=r else ;
end;
end;
begin
ser:=(par1+par2/n)/2;
writeln('Г‘ГҐГ°ГҐГ¤Г*Вє Г*Г°ГЁГґГ¬ГҐГІГЁГ·Г*ГҐ 2-Гµ Г±ГІГ®ГўГЇГ¶ВіГў: ',ser);
end;
end;
end.

Решение задачи: «Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера»

Листинг программы

const
    m = 9;
var
    a: Array[Byte, 1..m] Of Integer;
    i, j, n: Byte;
    sum: LongInt;
begin
    repeat
        Write('n=');
        ReadLn(n);
    until (n > 0);
    Randomize;
    for i := 0 to n - 1 do
    begin
        for j := 1 to m do
        begin
            a[i, j] := Random(199) - 99;
            Write(a[i, j]:6);
        end;
        WriteLn;
    end;
    for j := 1 to m do
        Write('------');
    WriteLn;
    for j := 1 to m do
        if (Not Odd(j))
        then
        begin
            sum := 0;
            for i := 0 to n - 1 do
                Inc(sum, a[i, j]);
            Write((sum / n):6:1);
        end
        else
            Write('      ');
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Объявляются переменные: m (равная 9), a (массив типа Integer размером 1..m), i, j, n (все три типа Byte). Также объявляется переменная sum типа LongInt.
Выполняется цикл repeat, в котором считывается значение переменной n. Цикл продолжается до тех пор, пока n больше 0.
Вызывается функция Randomize, которая инициализирует генератор случайных чисел.
Запускается цикл for, который повторяется n-1 раз. В каждой итерации этого цикла считывается значение переменной i.
Внутри цикла i выполняется еще один цикл for, который повторяется m-1 раз. В каждой итерации этого внутреннего цикла считывается значение переменной j.
Внутри внутреннего цикла j считывается значение переменной a[i, j] и присваивается переменной a[i, j] значение, сгенерированное случайным образом (Random(199) - 99).
Выводится значение a[i, j] с помощью функции Write.
Выводится символ - для каждого столбца матрицы, имеющего нечетный номер (если Not Odd(j)).
Иначе, выводится символ (пробел).
После завершения внутреннего цикла j выводится символ ------.
Выполняется еще один цикл for, который повторяется m-1 раз. В каждой итерации этого цикла выводится значение sum с помощью функции Write.
Выводится символ / для каждого столбца матрицы, имеющего четный номер (если Not Odd(j)).
Иначе, выводится символ (пробел).
Выводится символ n, чтобы показать, что это среднее арифметическое для столбца с номером n.
Выводится символ = для каждого столбца матрицы, имеющего четный номер (если Not Odd(j)).
Иначе, выводится символ (пробел).
Выводится символ ``.
Выполняется цикл repeat, в котором считывается значение переменной n. Цикл продолжается до тех пор, пока n больше 0.
Вызывается функция ReadLn, которая считывает ввод пользователя.
Код завершается.