Написать подпрограмму-функцию,вычисляющую число положительных элементов до первого отрицательного в массиве

uses crt;
const nmax=100;
type mas=array [1..nmax] of integer;
var a: mas;
    i,n: byte;
    
function Sum (r: byte; z: mas): integer;
var s: integer;
    j: byte;
begin
s:=0;
j:=1;
if z[1]>0 then
while z[j]>0 do
      begin
      inc(s,z[j]);
      inc(j);
      end;
Sum:=s;
end;
 
begin
repeat
write('Количество элементов массива, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
writeln('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(139)-39;
    write(a[i]:4);
    end;
writeln;
writeln('Сумма до первого отрицательного ',Sum (n,a));
end.

uses crt;
const nmax=100;
type mas=array [1..nmax] of integer;
var a: mas;
    i,n: byte;
 
function Sum (r: byte; z: mas): integer;
var s: integer;
    j,k: byte;
begin
s:=0;
j:=1;
k:=0;
if z[1]<0 then Sum:=-1
   else
   begin
   while (z[j]>0) and (j<=r) do
      begin
      inc(s,z[j]);
      inc(j);
      end;
   Sum:=s;
   end;
end;
 
begin
repeat
write('Количество элементов массива, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
writeln('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(139)-39;
    write(a[i]:4);
    end;
writeln;
if Sum(n,a)=-1 then writeln('Массив начинается с отрицательного числа')
   else writeln('Сумма до первого отрицательного ',Sum (n,a));
end.