дан массив (Паскаль) из десяти целых чисел, подсчитать Как узнать сколько встречается 0. Как это делается? Пожалуйста посчитайте, пожалуйста.

var 
a:array[1..10] of integer; 
i,k:byte; 
begin 
writeln('Заполнение массива'); 
for i:=1 to 10 do 
readln(a[i]); 
for i:=1 to 10 do 
begin 
if a[i]=0 then 
k:=k+1; 
end; 
writeln('Кол-во нулей:',k); 
end.