Подпрограмма Procedure(Pascal ABC)

[Tanya-Manya]

Помогите,пожалуйста!
Используя подпрограмму Procedure составить Паскаль-программу решения задачи:

Вычислить z=(e^s1+e^s2)/(k1*k2),
где s1 и k1- сумма и количество положительных элементов массива X (100); s2 и k2 — сумма и количество отрицательных элементов массива Y (80).
Обе суммы вычислять в одной подпрограмме.

[Sciv]

var x: array [1..100] of integer;
    y: array [1..80] of integer;
    z: real;
    j: integer;
    s1,s2,k1,k2: integer;

procedure Sums(var s1, s2: integer; var k1,k2: integer);
var i: integer;
begin
  s1:=0;
  k1:=0;
  for i:=1 to 100 do if x[i]>0 then begin
    s1:=s1+x[i];
    inc(k1);
  end;
  s2:=0;
  k2:=0;
  for i:=1 to 80 do if y[i]<0 then begin
    s2:=s2+y[i];
    inc(k2);
  end;
end;

begin
  randomize;
  for j:=1 to 100 do begin
    if j<=80 then y[j]:=Random(20)-15;
    x[j]:=Random(20)-15;
  end;
  sums(s1,s2,k1,k2);
  z:=(exp(s1)+exp(s2)) /(k1*k2);
  WriteLn(z);
  ReadLn;
end.

[Tanya-Manya]

Спасибо большое,добрый человек!!!!