Переставить в обратном порядке числа, находящиеся между максимальным и минимальным значением массива

const
  n = 20;
 
var
  a: array [1..n] of integer;
  max, min, i, imax, imin, m,c: integer;
 
begin
  m := 25;
  imax := 1;
  imin := 1; 
  max := a[imax];
  min := a[imin];
  for i := 1 to n do
  begin
    a[i] := random(m);
    write(a[i], ' ');
    
    if a[i] > max then
    begin
      max := a[i];
      imax := i;
    end;
    
    if a[i] <= min then 
    begin
      min := a[i];
      imin := i;
    end;
    
    end;

const n = 20;
var  a: array [1..n] of integer;
    max, min, i, imax, imin, m,c: integer;
begin
m := 25;
imax := 1;
imin := 1;
writeln('Исхожный массив');
for i := 1 to n do
 begin
  a[i] := random(m);
  write(a[i]:3);
  if a[i]>a[imax] then imax := i
  else if a[i]<a[imin] then imin := i;
 end;
writeln;
writeln('Максимальный элемент=',a[imax],' его индекс=',imax);
writeln('Минимальный элемент =',a[imin],' его индекс=',imin);
if imax<imin then
 begin
  m:=imax;
  imax:=imin;
  imin:=m;
 end;
if imax-1=imin then
 begin
  writeln('Между минимальным и максимальным 1 элемент, перестановка невозможна');
  exit;
 end;
for i:=1 to (imax-imin-1)div 2 do
 begin
  m:=a[imin+i];
  a[imin+i]:=a[imax-i];
  a[imax-i]:=m;
 end;
writeln('Перестановка элементов между минимадьным и максимальным');
for i:=1 to n do
write(a[i]:3);
end.

begin
  var a := Arr(14, 5, 8, 1, 10, 2, 3, 19, 2, 4, 5, 7).Println(',');
  var start := min(a.IndexMin, a.IndexMax) + 1;
  var finish := max(a.IndexMin, a.IndexMax) - 1;
  if finish - start < 1 then writeln('Перестановка невозможна') else
  begin
    a.Skip(start).Take(finish - start + 1).Reverse().ToArray().CopyTo(a, start);
    a.Println(',');
  end;
end.