напишите программу в паскале :ввести массив из пяти чисел. Вывести на экран отрицательные числа

begin
  ReadArrReal('Введите 5 чисел',5).Where(x->x<0).Println
end.


Введите 5 чисел 4 -3.1 5.7 -2 6
-3.1 -2