Определить порядковые номера отрицательных элементов одномерного массива a[1..10] — Pascal(Паскаль)

const
  n = 10;

var
  i: integer;
  a: array [1 .. n] of integer;

begin
  for i := 1 to n do
  begin
    a[i] := 10 - random(20);
    write(' ', a[i]:3);
  end;
  writeln();
  writeln('-------');
  for i := 1 to 10 do
    if a[i] < 0 then
      Write(i, ' ');
  writeln();

end.