В последовательности первый отрицательный элемент поменять местами с последним max элементами

const
  n = 5;
var
  a : array [1..n] of integer;
  i : integer;
  max_last, max_last_index : integer;
  negative_first_index : integer;
 
begin
  randomize;
  
  negative_first_index := 0;
  max_last_index := 1;
  max_last := -100000;
  
  for i := 1 to n do
    begin
      a[i] := random(10) - 5;
      write(a[i]:3);
      if (negative_first_index = 0) and (a[i] < 0) then
         negative_first_index := i;
      if a[i] > max_last then
         begin
              max_last := a[i];
              max_last_index := i;
         end;
    end;
 
  writeln;
 
  i := a[max_last_index];
  a[max_last_index] := a[negative_first_index];
  a[negative_first_index] := i;
 
  for i := 1 to n do
      write(a[i]:3);
      
  readln
end.

const
  n = 5;
var
  a : array [1..n] of integer;
  i : integer;
  max_last, max_last_index : integer;
  negative_first_index : integer;
 
begin
  randomize;
 
  negative_first_index := 0;
  max_last_index := 1;
  max_last := -100000;
 
  write('Исходный массив : ');
  for i := 1 to n do
    begin
      a[i] := random(10) - 5;
      write(a[i]:3);
      if (negative_first_index = 0) and (a[i] < 0) then
         negative_first_index := i;
      if a[i] > max_last then
         begin
              max_last := a[i];
              max_last_index := i;
         end;
    end;
 
  writeln;
 
  i := a[max_last_index];
  a[max_last_index] := a[negative_first_index];
  a[negative_first_index] := i;
 
  write('Отредактированный массив : ');
  for i := 1 to n do
      write(a[i]:3);
 
  readln
end.