Отыскать количество положительных и отрицательных элементов в одномерном массиве.

program zz1;
var mas:array[1..10] of integer;
i,m,k:integer;
begin
for i:=1 to 10 do //наполняем массив случайными числами от -10 до 10
mas[i]:=random(21)-10;
for i:=1 to 10 do //выводим полученный массив на экран
write(mas[i], );
writeln; //переходим на новую строчку для вывода
for i:=1 to 10 do
if mas[i]gt;0 then k:=k+1; //проверяем, если число из массива больше нуля, то считаем его
write(количество положительных элементов в массиве - ,k); //выводим ответ
writeln; //перебегаем на новейшую строчку для вывода
for i:=1 to 10 do
if mas[i]lt;0 then m:=m+1; //проверяем, если число из массива меньше нуля, то считаем его
write(количество отрицательных частей в массиве - ,m); //выводим ответ
end.