Найти средние арифметические положительных и отрицательных частей массива,написать программу в паскале

program zz1;

const n = 10; // задаем количество чисел в массиве

var  i, s1, k1, s2, k2:integer; // задаем переменные целого типа

m:array [1..n] of integer;

begin

for i:=1 to n do  // получаем n чисел случайных и записываем их в массив

m[i]:=random(51)-25;

for i:=1 to n do  // организуем цикл, в котором переберем все числа массива

begin

 if m[i] lt; 0  then begin s1:=s1 + m[i];k1:=k1+1;end;  // проверяем, если очередной элемент массива отрицательный, то считаем сумму и количество

 if m[i] gt; 0  then begin s2:=s2 + m[i];k2:=k2+1;end;  // проверяем, если очередной элемент массива положительный, то считаем сумму и количество

end;

writeln( средние арифметические положительных  частей массива = , s1/k1); // выводим ответ

writeln( средние арифметические отрицательных  частей массива = , s2/k2);

end.