В массиве а (50), заполненный случайными числами. Найти количество отрицательных чисел

program zz1;

var mas:array[1 ... 50] of integer;

i, k:integer;

begin

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

mas[i]:=random (101) - 50;

for i:=1 to 50 do

write (mas[i],' '); / / выводим все числа из массива на экран в строчку через пробел

writeln; / / переходим на новую строку для вывода

for i:=1 to 50 do

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

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

end.