Решить (в паскале) дан массив из 20 элементов. найти количество четных и нечетных чисел в массиве

Var a:array[1..20] of integer;
i,k1,k2:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if odd(a[i]) then k2+=1;
if not odd(a[i]) then k1+=1;
end;
writeln(k1,' ',k2);
end.