Помогите решить задачу(в Паскале) 
Дан массив из 20 элементов. найти количество четных и нечетных чисел в массиве

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