Заменить первый отрицательный элемент на максимальное значение элемента массива 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.

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.