Найти произведение отрицательных элементов всех массивов

uses crt;
const n=5;
type mas=array[1..n] of real;
procedure massiv(var x:mas;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  x[i]:=-5+10*random;
  write(x[i]:6:2)
 end;
writeln
end;
procedure prz_otr(x:mas);
var i,k:byte;
    p:real;
begin
p:=1;
k:=0;
for i:=1 to n do
if x[i]<0 then
 begin
  k:=1;
  p:=p*x[i];
 end;
write('Произведение отрицательных=');
if k=0 then writeln(0)
else writeln(p:0:2);
 
end;
var a,b,c,d:mas;
begin
randomize;
massiv(a,'A');
prz_otr(a);
massiv(b,'B');
prz_otr(b);
massiv(c,'C');
prz_otr(c);
massiv(d,'D');
prz_otr(d);
end.

uses crt;
const n=20;
type mas=array[1..n] of integer;
procedure massiv(var x:mas;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  x[i]:=-5+random(11);
  write(x[i]:4)
 end;
writeln
end;
procedure summa(x:mas);
var i,k:byte;
    s:integer;
begin
s:=0;
for i:=1 to n do
s:=s+x[i];
writeln('Сумма=',s);
end;
var a,b:mas;
begin
randomize;
massiv(a,'A');
summa(a);
massiv(b,'B');
summa(b);
end.