Написать фрагмент программы, выводящей на экран номера отрицательных элементов массива

Const n=10;

Var a, b:array[1 ... n] of integer;

i:integer;

Begin

Randomize;

For i:=1 to n do

begin

A[i]:=Random (20) - 10;

Write (a[i],' ') ;

end;

Writeln;

Writeln ('Отрицательные элементы массива: ') ;

For i:=1 to n do

Begin

If A[i]<0 then

Begin

b[i]:=a[i];

Write (b[i],' ') ;

end;

end;

end.