Для каждого столбца двумерного массива подсчитать сумму четных положительных элементов - Pascal

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

Дан массив размером n×n, элементы которого целые числа Для каждого столбца подсчитать сумму четных положительных элементов, и записать данные в новый массив.

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

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

const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,s:integer;
begin
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-20+random(41);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Суммы четных положительных в столбцах');
for j:=1 to n do
 begin
  s:=0;
  for i:=1 to n do
  if(a[i,j]>0)and(a[i,j] mod 2=0) then s:=s+a[i,j];
  writeln('Столбец ',j:2,'=',s);
 end;
end.

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

Объявление константы nmax и переменных a (двумерный массив), n (размер массива), i (индекс строки), j (индекс столбца), s (сумма четных положительных элементов).
Генерация случайных чисел для заполнения массива a.
Вывод массива a на экран.
Подсчёт суммы четных положительных элементов в каждом столбце массива a.
Вывод суммы четных положительных элементов для каждого столбца на экран.