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

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure Massiv(var a:mas;var n:byte;c:char);
var i:byte;
begin
writeln('Массив ',c);
repeat
write('Размер массива до ',nmax,' =');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  a[i]:=random(10)-5;
  write(a[i]:4);
 end;
writeln;
end;
procedure SumKol(a:mas;n:byte; var s:integer;var k:byte);
var i:byte;
begin
s:=0;
k:=0;
for i:=1 to n do
if a[i]>0 then
 begin
  s:=s+a[i];
  k:=k+1;
 end;
end;
 
var x,y:mas;
    n,m,i,j,k1,k2:byte;
    s1,s2:integer;
    z:real;
begin
clrscr;
randomize;
Massiv(x,n,'X');
SumKol(x,n,s1,k1);
writeln('Сумма положительных=',s1,' количество=',k1);
writeln;
Massiv(y,m,'Y');
SumKol(y,n,s2,k2);
writeln('Сумма положительных=',s2,' количество=',k2);
writeln;
if(k1=0)or(k2=0) then write('Все элементы одного знака, Z не определено')
else
 begin
  z:=(s1+s2)/(k1*k2);
  write('Z=',z:0:2);
 end;
readln
end.