Дан одномерный массив 10 целых чисел отыскать сумму отрицательных и положительных

program zz1;

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

var  i, s, k: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 s:=s + m[i];  // проверяем, если очередной элемент массива отрицательный, то добавляем его к сумме

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

end;

writeln( сумма отрицательных элементов массива = , s); // выводим ответ

writeln( сумма положительных частей массива = , k);

end.