Как определить элемент массива парный или не парный

[ВДПУ]

Я ввел (if (t[i] mod 2=0) then) И мне выбрасывает ошибку
Вот тело программы

var t:array[1..10] of real;
i,n,m: integer;
begin
n:=0;
m:=0;
for i:=1 to 10 do
begin
write('Vvedit 10 chusel: ');
readln(t[i]);
if (t[i] mod 2=0) then
n:=n+1;
end;
for i:=1 to 10 do
if t[i] mod 2<>0 then
begin
m:=m=1;
end;
writeln('Kilkist ne parnyx=',m);
writeln('Kilkist ne parnyx=',n);
readln
end.

[GetMax]

Операторы div и mod могут применяться только к порядковым типам данным. Поэтому пишите либо

var t:array[1..10] of Integer ;

либо

if frac(t[i] / 2) = 0 then