В массиве z1,z2,…,zn найти произведение всех отрицательных элементов и подсчитать их число — Pascal(Паскаль)

program fyr;

uses crt;

const
  N = 100;

type
  massiv = array [1 .. N] of integer;

var
  Z: massiv;
  i, nn, count, pr: integer;

begin
  write('N= ');
  readln(nn);

  writeln('Vvedite elementy massiva:');
  for i := 1 to nn do
  begin
    write('Z[', i, ']= ');
    readln(Z[i]);
  end;
  clrscr;
  writeln('Vot vvedenye vami massiv: ');
  for i := 1 to nn do
    write(Z[i], ', ');
  writeln;
  writeln;
  count := 0;
  pr := 1;
  for i := 1 to nn do
    if Z[i] < 0 then
    begin
      inc(count);
      pr := pr * Z[i];
    end;

  if count = 0 then
    writeln('Net otric. elementov')
  else
    writeln('Kol-vo= ', count, ';  Pr-e= ', pr);

  readln;

end.