Подсчитать, сколько в массиве нулевых элементов

uses crt;
const n = 10;
{Подсчитать, сколько в нем нулевых элементов}
procedure kol(a:array[1..n] of integer);
var i,k:integer;
begin
for i:=1 to n do
    if a[i] = 0 then inc(k);
writeln('Количество нулевых элементов = ',k);
end;
{напечатать элементы в виде параллельных столбцов}
procedure st(a:array[1..n] of integer);
var i:integer;
begin
i:=1;
writeln('Элементы в виде параллельных столбцов');
repeat
         write(a[i]:4);
         writeln(a[i+1]:4);
         inc(i,2);
until i >= n;
end;
{Указать те элементы , которые принадлежат отрезку [c, d]}
procedure otrezok(var a:array[1..n] of integer;c,d:integer);
var i,k:integer;
begin
k:=0;
writeln('Элементы , которые принадлежат отрезку [',c,',', d,']');
for i:=1 to n do
    if (a[i] >= c) and (a[i] <= d) then begin write(a[i]:4); inc(k); end;
if k = 0 then writeln('          Таких элементов нет');
writeln;
end;
{найти произведения только тех чисел, которые больше заданного числа m}
procedure pr(a:array[1..n] of integer; m:integer);
var proizved,i:integer;
begin
proizved:=1;
for i:=1 to n do
    if a[i] > m then proizved:=proizved*a[i];
writeln('Произведения только тех чисел, которые больше числа ',m,' = ',proizved);
end;
 var c,d,m,i:integer;
     a:array[1..n] of integer;
{Начало основной программы}
begin
writeln('Введите интервал (c;d)');
writeln('Введите C');
readln(c);
writeln('Введите D');
readln(d);
writeln('Введите M');
readln(m);
write('Исходный массив: ');
for i:=1 to n do
    begin
    a[i]:=random(100)-50;
    write(a[i]:4);
    end;
writeln;
kol(a);
st(a);
otrezok(a,c,d);
pr(a,m);
end.