Найти количество элементов матрицы с чётной суммой цифр и с хотя бы одним нечётным индексом - Pascal ABC

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

Здравствуйте, помогите пожалуйста. Дана целая квадратная матрица порядка n. Найти количество элементов, сумма цифр которых является чётным числом, а хотя бы один из индексов нечётен. Вот программа, не могу найти ошибку

const n=3;
type tind =1..n;
tar=array [tind,tind] of integer;
var a:tar; i,j:tind; kol:integer;
begin
writeln('Введи массив');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
begin
for i:=1 to n do
begin
kol:=0;
for j:=1 to n do
if (i mod 2 <> 0) or (j mod 2 <> 0) then
begin
if (((a[i,j] mod 10)+(a[i,j] div 10)) mod 2 = 0) then kol:=kol+1;
end;
end;
writeln(kol);
end;
readln;
end.

Решение задачи: «Найти количество элементов матрицы с чётной суммой цифр и с хотя бы одним нечётным индексом»

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

kol:=0;

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

Создаётся переменная kol и присваивается ей значение 0. Эта переменная будет использоваться для подсчёта количества элементов матрицы.
Создаётся цикл while, который будет выполняться до тех пор, пока значение переменной kol меньше или равно 20.
Внутри цикла создаётся вложенный цикл for, который будет выполняться от 1 до 20.
Внутри вложенного цикла проверяется сумма цифр элемента матрицы, которую представляет переменная a. Если сумма цифр чётная, то элемент не подходит для подсчёта.
Если сумма цифр нечётная, то переменная kol увеличивается на 1. Это означает, что количество элементов матрицы с чётной суммой цифр и с хотя бы одним нечётным индексом увеличивается на 1.
После окончания вложенного цикла, переменная kol увеличивается на 1. Это означает, что количество элементов матрицы с чётной суммой цифр и с хотя бы одним нечётным индексом увеличивается на 1.
После окончания внешнего цикла, переменная kol будет содержать количество элементов матрицы, удовлетворяющих условию задачи.