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

vari,count:integer;h: array [1..20] of integer;begincount:=0;writeln('Введите элементы');for i:=1 to 20 doread(h[i]);for i:=1 to 20 doif h[i]>0 thencount:=count+1;writeln('Количество нулевых элементов ', count)end.