Вычислить z = (s1 + s2) /2, где s1 - сумма положительных одного массива, а s2 - сумма отрицательных второго

program myprog;
uses crt;
const na=50;
      nb=60;
type mas=array [1..100] of integer;
var A:mas; B:mas;
    i:byte; s1,s2:integer; z:real;
    
function sum_pol (a:mas):integer;
var i:byte; s1:integer;
begin
 s1:=0;
 for i:=1 to na do
   if a[i]>0 then s1:=s1+a[i];
 sum_pol:=s1;
end;
 
function preobr (c:mas; n:integer):mas;
var i,j:byte; f:integer;
begin
j:=1;
for i:=1 to n do
if (c[i]>0) then begin
c[j]:=c[i];
if i<>1 then c[i]:=0;
inc(j);
end else c[i]:=0;
preobr:=c;
 
end;
 
function sum_otr (b:mas):integer;
var i:byte; s2:integer;
begin
 s2:=0;
 for i:=1 to nb do
   if b[i]<0 then s2:=s2+b[i];
 sum_otr:=s2;
end;
begin
randomize;
for i:= 1 to na do  begin
A[i]:=random(31)-15;
write(a[i], ' ');
end;
writeln;
for i:= 1 to nb do  begin
B[i]:=random(31)-15;
write(b[i], ' ');
end;
writeln;
s1:=sum_pol(a);
writeln('s1=', s1);
s2:=sum_otr(b);
writeln('s2=', s2);
z:=(s1+s2)/2;
writeln('z=', z);
 
a:=preobr(a,na);
for i:=1 to na do
write(a[i], ' ');
writeln;
b:=preobr(b,nb);
for i:=1 to nb do
write(b[i], ' ');
end.