Дан одномерный целочисленный массив D(n), содержащий как положительные, так и отрицательные элементы. Определить номер первого отрицательного элемента, по абсолютной величине превышающего максимальный элемент этого массива. Вывести массив D, номер найденного элемента или соответствующее сообщение, если такого элемента нет — Pascal(Паскаль)

uses crt;

var
  a: array [1 .. 100] of integer;
  i, n, max: integer;
  t: boolean;

begin
  clrscr;
  writeln('vvedite rasmernost massiva');
  readln(n);
  writeln('vvedite elementi massiva');
  for i := 1 to n do
  begin
    readln(a[i]);
    if max < a[i] then
      max := a[i];
  end;
  writeln;
  for i := 1 to n do
    write(a[i]:3);
  writeln;
  writeln('maxim element = ', max);
  t := false;
  for i := 1 to n do
  begin
    if abs(a[i]) > max then
    begin
      write('nomer ', i);
      t := true;
    end;
    if t = false then
      writeln('takih elementov net');
    readln;

end.