Згинирировать массив из 20 чисел подсчитать количество чётных. надо

Program z1;
var a:array [1..30] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 30 do 
begin
readln a[i];
if a[i] mod 2 =0 then k:=k+1;
end;
wreteln('четных',k);
end.