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

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);

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

begin

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

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

end;

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

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

end.