Заменить первый отрицательный элемент на максимальное значение элемента массива A(N)

Uses Crt;
   Var a:Array[1..100] of Integer;
        i,n,j:1..100; max:integer;
Begin
   ClrScr;
   Writeln('Введите количество элементов массиве:');
   Readln(n);
   Writeln('Теперь заполните этот массив');
   For i:=1 to n do
      Begin
         Write('a[',i,']');
         Readln(a[i]);
      End;
   For i:=1 to n do
      If a[i]<0 Then Begin j:=i; Break; End;
   max:=a[i];
   For i:=1 to n do
      If max<a[i] Then max:=a[i];
   Writeln('Максимальный элемент: ',max);
   Writeln('Первый отрицательный элемент: ',a[j]); a[j]:=max;
   Writeln(a[j]);
End.

var
  a: array [1..100] of integer;
  i, j, n, max: integer;
begin
  repeat
    Writeln('Введите количество элементов в массиве (1..100): '); Readln(n);
  until (n>0) and (n<=100);
  Writeln('Введите элементы массива:');
  max:=$FFFF; j:=0;
  for i:=1 to n do begin
    Read(a[i]); 
    if a[i]>max then max:=a[i];
    if (j=0) and (a[i]<0) then j:=i;
  end;
  WriteLn('Максимальный элемент: ',max);
  if j>0 then begin
    WriteLn('Первый отрицательный элемент в позиции: ',j);
    a[j]:=max;
  end else WriteLn('Отрицательные элементы отсутствуют');
end.

max:=$FFFF

max:=-maxint-1;