в одномерной матрице найти кол-во четных и нечетных элементов. паскаль

var a: array[1..20] of integer;
i:integer;
n,m:integer;

begin
for i:=1 to 20 do
begin
// read(a);
if ((a mod 2) = 1) then n:=n+1
else m:=m+1;
end;

write('нечетных=',n,' четных=',m);
readln;
end.

нашел, что дальше? паскаль