Вычислить значение выражения

{Составить программу, в которой вычислить z=(s1+s2)/(k1*k2),
где s1 и k1 - сумма и количество положительных элементов
вектора Х[N]; s1 u k2 - сумма и количество положительных элементов
вектора Y[M]}
uses
  crt;
var
  x,y:array[1..100] of integer;
  i,s1,k1,s2,k2,n,m:integer;
  z:real;
begin
  clrscr;
  randomize;
  write('Razmer massiva n=');
  readln(n);
  writeln('Ishodnyj massiv № 1:');
  s1:=0;  k1:=0;
  for i:=1 to n do
    begin
      x[i]:=random(30)-10;
      if x[i]>0 then
        begin
          inc(k1);
          s1:=s1+x[i];
        end;
      write(x[i],' ');
    end;
  writeln;
  write('Razmer massiva m=');
  readln(m);
  s2:=0;  k2:=0;
  writeln('Ishodnyj massiv № 2:');
  for i:=1 to m do
    begin
      y[i]:=random(30)-10;
      if y[i]>0 then
        begin
          inc(k2);
          s2:=s2+y[i];
        end;
      write(y[i],' ');
    end;
  writeln;
  z:=(s1+s2)/(k1*k2);
  writeln('Z = ',z:8:2); 
  readln;
end.