[MuzFAN]

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

Код:

program Project1;

const
  n = 10;
type
  TIntArray = array [0 .. n - 1] of Integer;

function Zap: TIntArray;
var
  i: Integer;
begin
  Randomize;
  for i:=0 to n - 1 do
    Result[i] := Random(n);
end;

function GetMinElementIndex(IntArray: TIntArray): Integer;
var
  minInd, i: Integer;
begin
  minInd := 0;
for i := 0 to n - 1 do
  if IntArray[i] < IntArray[minInd] then
  minInd := i;
  Result := minInd;
end;

function GetMaxElementIndex(IntArray: TIntArray): Integer;
var
  maxInd, i: Integer;
begin
  maxInd := 0;
for i := 0 to n - 1 do
  if IntArray[i] > IntArray[maxInd] then
   maxInd := i;
   Result := maxInd;
end;

var

begin
   
  ReadLn;
end.

Админ: Учимся пользоваться тегами!

Написал часть задачи, не пойму как можно переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальным элементами. Заранее спасибо)