Найти количество элементов, сумма которых является четным числом - Free Pascal

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

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

                    Листинг программы
                
 
                        
                          
                    
const n=3;
Type Tind=1..n;
Tmatr=array[Tind,Tind] of integer;
var a:Tmatr;
var y,i,j,s,x,t:integer;
begin
        for i:=1 to n do
        for j:=1 to n do readln(a[i,j]);
        for i:=1 to n do
        for j:=1 to n do begin
                y:=0;
                x:=a[i,j];
                while x<>0 do begin
                y:=y + x mod 10;
                x:=x div 10;
                end;
                t:=0;
                if y mod 2 (!)= 0 and i mod 2 = 1 then t:=1; //incompatible types: got "Boolean" expected "LongInt"
                if y mod 2 (!)= 0 and j mod 2 = 1 then t:=1; //incompatible types: got "Boolean" expected "LongInt"
                if t=1 then s:=s+1;
                end;
end.

Ошибки в помеченных (!) пунктах. Не судите строго если ошибки в моих незнаниях, я только начинаю) Вывод writeln ещё не написал, пока так.

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

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

if (y mod 2 = 0) and (i mod 2 = 1) then...

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

В данном коде проверяется условие, что число y является четным (т.е. y % 2 = 0), а число i - нечетным (т.е. i % 2 = 1). Если это условие выполняется, то выполняется блок кода, который идет после этого условия. В данном случае, этот блок кода отсутствует, поэтому ничего не происходит. Список элементов кода:

Проверка условия (y mod 2 = 0) и (i mod 2 = 1)
Блок кода, выполняющийся при выполнении условия
- В данном случае блок кода отсутствует, поэтому ничего не происходит