Дан одномерных массив содержащий n частей и заполненный с клавиатуры. Сформулируйте

program zz1;
var i,j,n:integer;
a,b:array[1..100] of integer; //заводим два массива
begin
read(n); // вводим заданное количество чисел n
for i:=1 to n do //заполняем массив числами с клавиатуры через пробел
read(a[i]);

for i:=1 to n do
if a[i] lt;0 then begin j:=j+1;b[j]:=a[i];end; //проверяем, если число из массива а отрицательное, то считаем его номер и записываем в массив b

for i:=1 to j do //по окончанию предшествующего цикла, переменная j бережёт количество отрицательных чисел из массива а
write(b[i], ); //выводим ответ
end.