Для каждого массива вычислить: значение максимального элемента, количество отрицательных элементов

type mas=array[1..60] of integer;
procedure XXX(const a:mas; var max,neg:integer);
var i,N:integer;
begin
write('размерность массива: ');
readln(N);
for i:=1 to N do
readln(a[i]); {вводим массив}
 
max:=-MaxInt; {в качестве max берем минимальное значение integer}
for i:=1 to N do
if a[i]>max then max:=a[i];
 
neg:=0;
for i:=1 to N do
if a[i]<0 then inc(neg); {если число меньше нуля, увеличиваем счетчик}
 
end;
begin
//==================
XXX(A,max,neg);

................
procedure MassA;
var i,max,k:integer;
begin
k:=0;
max:=a[1];
for i:=1 to n do 
 begin
  if a[i]<0 then  
   inc(k);
  if a[i]>max then 
   max:=a[i];
 end;
Writeln('Kol-vo ',k);
Writeln('Max ',max);
end;
................

PROCEDURE GetMax(a : arr; const m: integer);
var max,i : integer;
begin
max :=a[1];
for i:= 2 to m do
if a[i]>max then max := a[i];
WriteLn(max);
end;
 
PROCEDURE GetNegativ(a: arr; const m: integer);
var count, i: integer;
begin
count := 0;
for i := 1 to m do
if a[i]<0 then Inc(count);
WriteLn(count);
end;

program zad;
uses crt;
type m=array[1..60] of integer;
 
 
procedure vvod;
var
mas:array[1..60] of integer;
j,max,kol:integer;
begin
  randomize;
  textcolor(3);
  for j:=1 to 60 do
  begin
    mas[j]:=random(101)-50;
    write(mas[j]:4);
  end;
  max:=mas[1];
  for j:=1 to 60 do
  begin
    if mas[j]>=max then max:=mas[j];
  end;
  kol:=0;
  for j:=1 to 60 do
  begin
    if mas[j]<0 then kol:=kol+1;
  end;
 
  writeln('максимальный элемент равен ',max);
  writeln('колличество отрицательных элементов равно ',kol);
  textcolor(15);
  writeln('нажмите ENTER ');
  readln;
end;
 
begin
  clrscr;
  textcolor(10);
  writeln('массив a ');
  vvod;
  textcolor(10);
  writeln('массив b ');
  vvod;
  textcolor(10);
  writeln('массив c ');
  vvod;
  textcolor(10);
  writeln('массив d ');
  vvod;
 
 
end.

program zad;
uses crt;
type m=array[1..60] of integer;
 
 
procedure vvod;
var
mas:array[1..60] of integer;
j,max,kol:integer;
begin
  randomize;
  textcolor(3);
  for j:=1 to 60 do
  begin
    mas[j]:=random(101)-50;
    write(mas[j]:4);
  end;
  max:=mas[1];
  for j:=1 to 60 do
  begin
    if mas[j]>=max then max:=mas[j];
  end;
  kol:=0;
  for j:=1 to 60 do
  begin
    if mas[j]<0 then kol:=kol+1;
  end;
 
  writeln('максимальный элемент равен ',max);
  writeln('колличество отрицательных элементов равно ',kol);
  textcolor(15);
  writeln('нажмите ENTER ');
  readln;
end;