3 массива

a: array[1..15] of integer;
b: array[1..20] of integer;
c: array[1..10] of integer;
i, k, l, m: integer;
 
for i:=1 to 15 do
if a[i]<0 then inc(k);
 
for i:=1 to 20 do
if b[i]<0 then inc(l);
 
for i:=1 to 10 do
if c[i]<0 then inc(m);
 
if (k<m) and (k<l) then writeln('массив A');
if (m<k) and (m<l) then writeln('массив C');
if (l<m) and (l<k) then writeln('массив B');

var i:integer;
    az,bz,cz:byte;
    a:array[1..15] of integer;
    b:array[1..20] of integer;
    c:array[1..10] of integer;
Begin
  i:=1;
     while i<>15 do
       begin
        writeln('Масыв 1й(1..15),введите ',i,' елемент:');
        read(a[i]);
        i:=i+1;
       end;
    i:=1;
     while i<>20 do
       begin
         writeln('Масыв 2й(1..20),введите ',i,' елемент:');
         read(b[i]);
         i:=i+1;
       end;
    i:=1;
     while i<>10 do
       begin
         writeln('Масыв 3й(1..10),введите ',i,' елемент:');
         read(c[i]);
         i:=i+1;
       end;
       
     for i:=1 to 15 do
      begin
       if a[i]<0 then
        az:=az+1;
      end;
      
     for i:=1 to 20 do
      begin
       if a[i]<0 then
        bz:=bz+1;
      end;
      
     for i:=1 to 10 do
      begin
       if a[i]<0 then
        cz:=cz+1;
      end;
  if (az<bz) and (az<cz) then writeln('1й массив меет наименьшее количество отрицательных элементов');
  if (bz<az) and (bz<cz) then writeln('2й массив меет наименьшее количество отрицательных элементов');
  if (cz<az) and (cz<bz) then writeln('3й массив меет наименьшее количество отрицательных элементов');
 
 readln;
End.

const
  amax=15;
  bmax=20;
  cmax=10;
type
  MyArr = array[1..40]of integer;
var
  a,b,c:MyArr;
{процедура ввода}
procedure Writing(var a:MyArr;const max:integer);
var
  i:integer;
begin
  for i:=1 to max do
    a[i]:=random(8)-4
end;
{процедура вывода}
procedure Print(a:MyArr;max:integer;ch:char);
var
  i:integer;
begin
  writeln('Массив ',ch,':');
  write('[ ');
  for i:=1 to max do
    write(a[i],' ');
  writeln(']')
end;
{одна общая процедура процедура}
procedure Arr(a:MyArr;amax:integer;b:MyArr;bmax:integer;c:MyArr;cmax:integer);
var
  i,res,c1,c2,c3:integer;
begin
  c1:=0;
  c2:=0;
  c3:=0;
  for i:=1 to amax do
    if a[i]<0 then
      inc(c1);
  for i:=1 to bmax do
    if b[i]<0 then
      inc(c2);
  for i:=1 to cmax do
    if c[i]<0 then
      inc(c3);
  if (c1=0) and (c2=0) and (c3=0) then
    writeln('В данных массивах нет отрицательных элементов!')
  else
  begin
    if (c1<c2) and (c1<c3) then
      writeln('В первом!');
    if (c2<c1) and (c2<c3) then
      writeln('Во втором!');
    if (c3<c2) and (c3<c1) then
      writeln('В третьем!')
  end;
end;
{основная программа}
begin
  Writing(a,amax);
  Writing(b,bmax);
  Writing(c,cmax);
  Print(a,amax,'A');
  Print(b,bmax,'B');
  Print(c,cmax,'C');
  Arr(a,amax,b,bmax,c,cmax)
end.