Выяснить, каких цифр больше: четных или нечетных?

Чётных больше ...

Program primer;

const n=5;

var a:array[1 ... n] of integer;

i:integer;

begin

writeln ('vvedite massiv') ;

for i:=1 to n do

readln (a[i]) ;

for i:=1 to n do

if (a[i] mod 2=0) > (a[i] mod 2=1) then

writeln ('ceotnih cisel bolise')

else

writeln ('neceotnih cisel bolise') ;

readln;

end.