Задан массив A из 100 чисел. Описать функцию для определения произведения отрицательных чисел среди N первых его элементов. В качестве параметров взять A и N. Если отрицательных нет, то результат функции — число 7777777 — Pascal(Паскаль)

program e1;

const n=100;
var 
amas: array [1..n] of integer;
i:integer;
rez:longint;

function ololo4(a:array of integer; n:integer):longint;
var
  res:longint;
  i:integer;
  p:boolean;
begin
res:=1;
p:=true;
for i:=0 to n-1 do
  if a[i]<0 then begin if p then p:=false; Res:=Res*a[i]; end;
if p then ololo4:=7777777
else ololo4:=res;
end;

begin
for i:=1 to n do
 amas[i]:=50-random(100);
 for i:=1 to n do
 write(' ',amas[i]);
rez:=ololo4(amas,5);
writeln();
writeln('Itogo');
writeln(rez);
end.