Написать процедуру вывода индексов отрицательных элементов одномерного массива

program Project1;
 
uses
  CRT;
const
  maxelem = 20;
type
  TArr1int = array [1..maxelem] of integer;
 
 
procedure InfInArr(var arr: TArr1int; nn: integer);
{Процедура для ввода пользователем информации в одномерный массив}
var
  i: integer;
begin
  for i:= 1 to nn do
    begin
      write('Введите значение элемента [',i,']: ');
      Read(arr[i]);     { Ввод значений в массив.}
    end;
  Readln;
end;
 
 
procedure InfOutArr(arr: TArr1int; nn: integer);
{Процедура для вывода одномерного массива в консоль}
var
  i: integer;
begin
  for i:= 1 to nn do
    write(' ',arr[i]:5);
  Writeln;
end;
 
procedure OutIndexNegElement(arr: TArr1int; nn: integer);
{Процедура выводит индексы отрицательных элементов массива}
var
  i: integer;
begin
  for i:= 1 to nn do
    if arr[i] < 0 then
      write(' ',i:5);
  Writeln;
end;
 
var
  a: array [1..3] of TArr1int; {Массив для хранения массивов}
  i: integer; {Вспомогательная переменная для организации циклов}
  nm: array [1..3] of char; {Переменная для хранения массива с именами}
begin
  nm[1]:= 'A';
  nm[2]:= 'B';
  nm[3]:= 'C';
  for i:= 1 to 3 do
    begin
      writeln('Введите значения элементов массив ',nm[i],':');
      InfInArr(a[i],6);
      writeln('Для продолжения нажмите клавишу "Enter"');
      readln;
      clrscr;
    end;
  for i:= 1 to 3 do
    begin
      writeln('Исходный массив ',nm[i],':');
      InfOutArr(a[i],6);
      writeln('Индексы отрицательных элементов массива ',nm[i],':');
      OutIndexNegElement(a[i],6);
    end;
  Readln;
end.

const
  n = 6;
 
type
  vector = array [1..n] of real;
 
var
  a, b, c: vector;
  i: integer;
 
procedure output(x: vector);
var
  i: integer;
begin
  for i := 1 to n do 
    if x[i] < 0 then 
      Write(i:4);
end;
 
begin
  randomize;
  Writeln('A:':8, 'B:':8, 'C:':8); 
  for i := 1 to n do 
  begin
    a[i] := -n div 2 + random * n;
    b[i] := -n div 2 + random * n;
    c[i] := -n div 2 + random * n;
    Writeln(a[i]:8:2, b[i]:8:2, c[i]:8:2); 
  end;
  WriteLn('A:');
  output(a);
  WriteLn;
  WriteLn('B:');
  output(b);
  WriteLn;
  WriteLn('C:');
  output(c);
end.