Подсчитать количество чётных чисел в каждой строке массива - Free Pascal (273)

const n=5;//Константа размера матрицы
var
a:array[1..n,1..n]of integer;//Сама матрица
chet,otric:array[1..n]of integer;//Массивы четных, отрицательных
i,j,krtrem,sum:byte;//Переменные перебора элементов матрицы, чисел,кратных трем и суммы чисел, кратных пяти
begin
sum:=0;
randomize;//Инициализируем рандом
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(-15,15);//Заполняем матрицу случайными числами
for i:=1 to n do
for j:=1 to n do
if a[i,j] mod 2=0 then inc(chet[i]);//Считаем количество четных чисел в строках
for i:=1 to n do
for j:=1 to n do
if a[j,i] < 0 then inc(otric[i]);//Считаем количество отрицательных чисел в столбцах
for i:=1 to n do
if a[i,i] mod 3 = 0 then inc(krtrem);//Считаем количество чисел, кратных трем на главной диагонали
for i:=1 to n do
if a[i,n-i+1] mod 5 = 0 then sum:=sum+a[i,n-i+1];//Считаем количество чисел, кратных пяти на побочной диагонали
//Выводим саму матрицу
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],'|');
writeln;
end;
//----------------//
writeln;
writeln('chet');//Выводим количество четных чисел
for i:=1 to n do
write(chet[i],' ');
writeln;
writeln('otric');//Выводим количество отрицательных чисел
for i:=1 to n do
write(otric[i],' ');
writeln;
writeln('krtrem');
writeln(krtrem);//Выводим количество чисел, кратных трем
writeln('sum');
writeln(sum);//Выводим сумму чисел, кратных пяти
end.