Решите в паскале. если можно с блок - схемой. дана последовательность чисел. вывести на экран все отрицательные числа.

Massive : Array[0..999] of integer;   //создаем массив
Var j : integer;     //описываем переменную счетчика
begin
readln(N);   //колво элементов
for j = 1 To N Do 
if Massive[j] < 0 then writeln(Massive[j])
readln()
end.