Дан массив размера 10.Переставить в обратном порядке элементы массива , рассположенные между его минимальным и максимальным элементами.

program Project1;
 
function Min(const A, B : Integer) : Integer;
begin
  if A < B then
    Min := A
  else
    Min := B
  ;
end;
 
function Max(const A, B : Integer) : Integer;
begin
  if A > B then
    Max := A
  else
    Max := B
  ;
end;
 
const
  N = 10;
var
  Arr : array[1..N] of Integer;
  i, j, IMax, IMin, I1, I2, Num : Integer;
begin
  (*Формируем исходный массив и распечатываем его.*)
  Randomize;
  Writeln('Исходный массив:');
  for i := 1 to N do begin
    Arr[i] := Random(11); (*0..10*)
    if i > 1 then Write(', ');
    Write(Arr[i]);
  end;
  Writeln;
 
  (*Поиск индексов минимального и максимального элементов.*)
  IMin := 1;
  IMax := 1;
  for i := 1 + 1 to N do begin
    if Arr[i] < Arr[IMin] then
      IMin := i
    ;
    if Arr[i] > Arr[IMax] then
      IMax := i
    ;
  end;
 
  (*Перестановка.*)
  (*Меньший индекс.*)
  I1 := Min(IMin, IMax);
  (*Больший индекс.*)
  I2 := Max(IMin, IMax);
  j := I2;
  for i := I1 to (I1 + I2) div 2 do begin
    Num := Arr[i];
    Arr[i] := Arr[j];
    Arr[j] := Num;
    j := j - 1;
  end;
 
  (*Показываем обработанный массив.*)
  Writeln('Полученный массив:');
  for i := 1 to N do begin
    if i > 1 then Write(', ');
    Write(Arr[i]);
  end;
  Writeln;
  
  Readln;
end.

...
  (*Перестановка.*)
  (*Меньший индекс.*)
  I1 := Min(IMin, IMax);
  (*Больший индекс.*)
  I2 := Max(IMin, IMax);
  j := I2 - 1;
  for i := I1 + 1 to (I1 + I2) div 2 do begin
    Num := Arr[i];
    Arr[i] := Arr[j];
    Arr[j] := Num;
    j := j - 1;
  end;
...