Определите количество чётных положительных элементов массива а

Паскаль

var A:array[1..100] of integer;
n,i,k:integer;
begin
write('Введите количество элементов массива: '); readln(n);
writeln('Введите элементы массива: '); 
for i:=1 to n do 
read(a[i]);

for i:=1 to n do
if (a[i]>0) and (not odd(a[i])) then inc(k);
writeln('кол-во четных положительных элементов = ',k);

end.