Найти количество нулевых элементов среди 20 в веденых с клавиатуры

Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln(Введите элементы);
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]gt;0 then
count:=count+1;
writeln(Количество нулевых элементов , count)
end.