Нужно написать программу на языке паскаль по условию: Найти сумму элементов массива расположенных до последнего положительного элемента Буду бескрайне благодарна, если поможете мне))

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.