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

uses crt;
const n=15;
      m=10;
Type arr=array[1..n] of integer;
     brr=array[1..n] of integer;
     crr=array[1..n] of integer;
 
procedure Mas1(a:arr);
var i,j,p,max:integer;
begin
max:=a[1];
p:=1;
 for i:=1 to n do
  begin
   if a[i]>max then
    max:=a[i];
   if a[i]<0 then
    p:=p*a[i];
   end;
Writeln;
Writeln('Max ',max);
Writeln('P=',p);
end;
 
procedure Mas2(b:brr);
var i,j,p,max:integer;
begin
max:=b[1];
p:=1;
 for i:=1 to n do
  begin
   if b[i]>max then
    max:=b[i];
   if b[i]<0 then
    p:=p*b[i];
   end;
Writeln;
Writeln('Max ',max);
Writeln('P=',p);
Writeln;
end;
 
procedure Mas3(c:crr);
var i,j,p,max:integer;
begin
max:=c[1];
p:=1;
 for i:=1 to n do
  begin
   if c[i]>max then
    max:=c[i];
   if c[i]<0 then
    p:=p*c[i];
   end;
Writeln;
Writeln('Max ',max);
Writeln('P=',p);
end;
 
var a:arr;
    b:brr;
    c:crr;
    i:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i]:4);
 end;
Mas1(a);
for i:=1 to n do
 begin
  b[i]:=random(30)-10;
  Write(b[i]:4);
 end;
Mas2(b);
for i:=1 to n do
 begin
  c[i]:=random(40)-10;
  Write(c[i]:4);
 end;
Mas3(c);
Readln;
end.