В массиве поменять местами максимальный и минимальный элементы

procedure TForm1.Button1Click(Sender: TObject);
var
  A: array of integer;
  I, min, mini, max, maxi: integer;
const
  n = 8;
begin
// Устанавливаем размер
  SetLength(A, n);
// Заполняем случайными числами
  for I := 0 to n - 1 do
    A[I] := Random(100);
 
 
// Поиск наименьшего и наибольшего значений и их позиций.
  min := A[0];
  mini := 1;
  max := A[0];
  maxi := 1;
 
  for I := 1 to n - 1 do
  begin
    if A[I] > max then
    begin
      max := A[I];
      maxi := I;
    end;
    if A[I] < min then
    begin
      min := A[I];
      mini := I;
    end;
  end;
 
// Меняем местами
  A[maxi]:=min;
  A[mini]:=max;
 
end;

// Поиск наименьшего и наибольшего значений и их позиций.
  min := A[0];
  mini := 0;
  max := A[0];
  maxi := 0;