Определить количество нулей в одномерном заданном массиве — Pascal(Паскаль)

program Mass;
uses crt;
const
n=10;
Type
Tmas = array[1..n] of integer;
var a:Tmas;
i,k:integer;
begin
Randomize;
for i:=1 to n do
 a[i]:=random(7)-3;
for i:=1 to n do
 write(a[i]:4);
writeln;
k:=0; //Инициализация счётчика нулевых эелемнтов
for i:=1 to n do
 if a[i]=0 then inc(k);
writeln(k);
readln
end.