Дан массив (паскаль) из десяти целых чисел, подсчитать сколько встречается 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.