Найти сумму элементов того массива, в котором больше положительных чисел

Program ABCD;
const n=5;
type tt=array [1..n] of integer;
var a,b:tt;
       i,j,k1,k2,t,s:integer;
procedure input (var a:tt);
    var i: integer;
    begin for i:=1 to n do begin write ('a[',i,']='); readln(a[i]); end; end;
procedure output (b:tt);
    var j: integer;
    begin for j:=1 to n do begin write ('b[',j,']'); readln (b[j]); end; end;
function Fk(a:tt):integer;
    var s,i:integer;
    begin s:=0; for i:=1 to n do if a[i]>=0 then s:=s+1; Fk:=s; end;
function Fsum (b:tt): integer;
    var t: integer;
    begin t:=0; for j:=1 to n do t:=t+b[j]; Fsum:=t; end;
begin
    writeln('1 massiv');    input(a); output (a); 
    writeln('2 massiv'); input(b); output(b);
    k1:=Fk(a); k2:=Fk(b);
    if k1>k2 then writeln ('bol v 1', Fsum(a));
               else writeln(' bol v 2', Fsum(b));
end.

writeln('1 massiv');    input(a); 
    writeln('2 massiv'); output(b);

Program ABCD;
Uses
 CRT;
const n=5;
type
 tt=array [1..n] of integer;
var
 a,b:tt;
 
procedure input (var l:tt;s:char);
var
 i: integer;
begin
for i:=1 to n do
begin
 write (s,'[',i,']=');
 readln(l[i]);
end;
end;
 
procedure output (Var l:tt);
var
 i: integer;
begin
for i:=1 to n do
begin
 write(l[i]:3);
end;
end;
 
function Fk(Var l:tt):integer;
var
 s,i:integer;
begin
s:=0;
for i:=1 to n do
 if l[i]>0 then
 begin
  s:=s+1;
 end;
Fk:=s;
end;
 
function Fsum (Var l:tt): integer;
var
 t,i: integer;
begin
t:=0;
for i:=1 to n do
begin
 t:=t+l[i];
end;
Fsum:=t;
end;
 
begin
ClrScr;
input(a,'A');
writeln('1 massiv');
output (a);
writeln;
input(b,'B');
writeln('2 massiv');
output(b);
writeln;
writeln('Êîë-âî ïîëîæèòåëüíûõ â ìàññèâå A:=',Fk(a));
writeln('Êîë-âî ïîëîæèòåëüíûõ â ìàññèâå B:=',Fk(b));
writeln;
if Fk(a)>Fk(b) then
 writeln ('bol v 1; Sum:=', Fsum(a))
  else
   writeln(' bol v 2; Sum:=',Fsum(b));
readkey
end.