Заданы 4 одномерных массива A, B, C, D. Количество элементов каждого массива не превышает 60. Для каждого массива вычислить:-значение максимального элемента-количество отрицательных элементов — Pascal(Паскаль)

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.