Склавиатуры вводятся массив из n целых чисел найти и вывести на экран все отрицательные элементы массива

Begin
Readln(n)
For i:=1 to n do
Begin
Read(a[i]);
If a[i]<0
Then write(a[i],' ');
End;
End.