Функция. Вычислить сумму положительных и число отрицательных элементов массива

Const p=10;q=20;r=30;
Type mas=array[1..30] of integer;
Var A,B,C:mas;
Procedure Mass(n:integer;Var A:mas);
Var i:integer;
Begin
    For i:=1 to n do
     Begin
      A[i]:=random(11)-5;
      write(A[i]:3);
     End;
    writeln;
End;
Function Sm_Ko(n:integer;A:mas):integer;
Var i,k,s:integer;
Begin
    s:=0;k:=0;
    For i:=1 to n do
     Begin
      if A[i]>0 then s:=s+A[i];
      if A[i]<0 then inc(k);
     End;
    writeln('Кол-во отирицательных: ',k);
    Sm_ko:=s;
End;
Begin
    writeln('Массив A');
    Mass(p,A);
    writeln('Сумма положительных: ',Sm_ko(p,A));
    writeln('Массив B');
    Mass(q,B);
    writeln('Сумма положительных: ',Sm_ko(q,B));
    writeln('Массив C');
    Mass(r,C);
    writeln('Сумма положительных: ',Sm_ko(r,C));
    readln;
End.