В массиве а(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]lt;0 then k:=k+1; // проверяем, если элемент массива отрицательный, то считаем его
write(количество отрицательных чисел = ,k); // выводим ответ
end.