Помогите с заданием...

Дан массив. Напишите пропущенные команды. Ввести с клавиатуры массив F, из 16 элементов целого типа, нумерация элементов начнется с 1 и найти кольчество четных элементов.

Program Primer;
......... d, kch:integer;
begin
for d:=1 to ... do.....
kch:=....
for d:=1 to... do
if .... then ......
writeln......
end.

Program Primer;

var F:array [1..16] of integer; d, kch: integer;

begin

   for d:=1 to 16 do read(F[d]);

   kch:=0;

   for d:=1 to 16 do

       if (F[d] mod 2 = 0) then kch:=kch+1;

   writeln(kch);

end.