Вычислить количество четных элементов в указанном столбце матрицы - Pascal

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

Составить программу, которая заполняет массив 6*6 случайным числами от -5до 10, вычисляет количество четных элементов в указанном столбце матрицы, выводит массив и результат вычислений.

Решение задачи: «Вычислить количество четных элементов в указанном столбце матрицы»

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

const
n  = 6;
var a:array[1..n,1..n] of integer;
i, sum, j, b: integer;
begin
writeln(Исходный массив':');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=-5 + random(16);
        write(a[i,j]:3);
        end;
    writeln;
    end;
writeln('Введиет нормер столбца');
readln(b);
sum:=0;
for i:=1 to n do
    if  not odd(a[i,b]) then
        sum:=sum + a[i,b];
writeln('Сумма четных элементов столбца ', b,' =  ', sum);
end.

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

Создается переменная n для хранения размерности матрицы и переменные a для хранения матрицы, i и j для циклов, sum для хранения суммы четных элементов, и b для хранения номера столбца, по которому будет производиться подсчет.
Заполняется матрица случайными числами от -5 до 10 и выводится на экран.
Пользователю предлагается ввести номер столбца.
Инициализируется переменная sum нулем.
Цикл проходит по всем строкам введенного столбца и, если элемент строки четный, добавляет его к переменной sum.
Выводится сумма четных элементов введенного столбца.