Найти количество четных элементов массива- Pascal(Паскаль)

uses crt;
var t: array [1..40] of integer;
i,n:integer;
begin
for i:=1 to 40 do
begin
t[i]:=random(100);
writeln(t[i]);
if not odd(t[i]) then n:=n+1;
end;
writeln(n,' четных');
end.