Переделать программу с использованием функции(есть наработки)

[19enf]

Паскаль АБЦ.
Нужно реализовать эту программу через функцию.

 program lab6_2;
var
  a:array[1..5] of integer; 
  i, n, max, m: integer; 
 
begin
  write('массив -> ');
  for i := 1 to 5 do 
  begin
    read(a[i]);
    if a[i] < 0 then begin inc(n) ;inc(m); 
    end;
    if (a[i] >= 0) or (i = 5) then  
    begin
      if m > max then max := m;
      m := 0;
    end;
  end;
  writeln('Кол-во отерицательных чисел=', n);
  writeln('Максимальное число подряд следующих отрицательных чисел =', max);
end.

Написал пока что только, что он считает отрицательные числа в функции, но не совсем верно. Не знаю что не так.

 program lab8_2;
uses crt;
var
a:array[1..5] of integer;
i,d,q:integer;


FUNCTION otricat(q:integer):integer;
var i:integer;
begin
for i := 1 to 5 do 
  begin
    readln(a[i]);
    if a[i] < 0 then begin inc(q) ;
otricat:=q;    
end;end;end;

begin
   for i:=1 to 5 do;
   writeln('массив -> ');
   read(a[i]);
   d:=otricat(d);
   writeln('Кол-во отерицательных чисел=', d);
   readln;
end.

[Mad_Cat]

FUNCTION otricat:integer;
var i:integer;
q:integer;
begin
q:=0;
for i := 1 to 5 do
    if a[i] < 0 then inc(q) ;
otricat:=q;
end;

Использование

for i:=1 to 5 do Readln(a[i]);
writeln('Кол-во отрицательных чисел=', otricat);

[19enf]

а максимальное кол-во подряд идущих отриц чисел в этой же функции делать или как?

program lab8_2;
uses crt;

var a:array[1..1000] of integer;
    i,n,r:integer;
    
FUNCTION otricat(q:integer):integer;
var i:integer;
begin 
    q:=0;
    for i:=1 to n do begin
      if a[i] < 0 then begin
        inc(q);
      end;end;  
otricat:=q;
end;

begin
     writeln('введите размер массива');  
     read(n);
     writeln('введите массив');
     for i:=1 to n do
     read(a[i]);
     r:=otricat(n);
     writeln('кол-во отриц чисел= ',r);
end.