В массиве определить количество нулевых элементов

uses crt;
const n=10;
var p:array[1..n] of real;
    i,k:integer;
    sr:real;
begin
clrscr;
writeln('Vvedite ',n,' elementov massiva:');
for i:=1 to n do
read(p[i]);
readln;
writeln('Izmenennyj massiv:');
sr:=0;
for i:=1 to n do
   begin
     write(p[i]*p[5]:6:2);
     k:=0;
     if p[i]<0 then
        begin
          k:=k+1;
          sr:=sr+p[i];
        end;
   end;
writeln;
write('Srednee=',sr:0:2);
readln
end.

uses crt;
const n=10;
var a,b:array[1..n] of real;
    i,k0:integer;
    sm:real;
begin
clrscr;
writeln('Vvedite ',n,' elementov massiva A:');
for i:=1 to n do
read(a[i]);
readln;
sm:=0;
for i:=1 to n do
if a[i]>0 then sm:=sm+a[i];
writeln('Summa=',sm:0:2);
writeln('Izmenennyj massiv:');
k0:=0;
for i:=1 to n do
   begin
     b[i]:=a[i]*sm;
     write(b[i]:6:2);
     if b[i]=0 then k0:=k0+1;
   end;
writeln;
write('Kolichestvo nulevyh=',k0);
readln
end.

uses crt;
const m=4;
      n=6;
var a,b:array[1..m,1..n] of real;
    min,sm:real;
    i,j,k:integer;
begin
clrscr;
randomize;
writeln('Matrica A:');
for i:=1 to m do
   begin
     for j:=1 to n do
       begin
         a[i,j]:=10*random;
         write(a[i,j]:5:2);
       end;
     writeln;
   end;
for i:=1 to m do
  begin
    min:=a[i,1];
    for j:=1 to n do
    if a[i,j]<min then min:=a[i,j];
    writeln('Min v stroke ',i, '=',min:0:2);
    for k:=1 to n do
    b[i,k]:=min/a[i,k];
  end;
writeln;
writeln('Matrica B:');
for i:=1 to m do
   begin
     for j:=1 to n do
     write(b[i,j]:5:2);
     writeln;
   end;
writeln;
writeln('Summa po stolbcam:');
for j:=1 to n do
   begin
     sm:=0;
     for i:=1 to m do
     sm:=sm+b[i,j];
     writeln('Summa v stolbce ',j,' =',sm:0:2);
   end;
readln
end.