Нужно написать программу на языке паскаль по условию:

Найти сумму элементов массива расположенных до последнего положительного элемента

Буду бескрайне благодарна, если поможете мне))

Uses crt;

var a, b:array[1 ... 100] of integer; i, j, k, n:integer;

procedure rmassr;

begin

for i:=1 to n do begin

a[i]:=random (10);

end;

end;

procedure rmassy;

begin

for i:=1 to n do begin

readln (a[i]);

end;

end;

procedure rmass ();

begin

for i:=1 to n do begin

write (a[i],' ');

end;

end;

procedure newmass;

begin

for i:=1 to n do begin

if a[i] > 0 then b[i]:=a[i];

end;

for i:=1 to n do begin

j:=j+b[i];

end;

writeln ('summa = ', j);

end;

begin

clrscr;

randomize;

write ('длина массива '); readln (n);

write ('1-random; 2-в ручную'); readln (k);

if k = 1 then

rmassr ()

else rmassy ();

rmass ();

writeln ();

newmass ();

readln

end.