Перестановка массива Опции

[Amele]

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

[klem4]

uses crt;
const
  n = 10;

var
  x: Array [1..n] of Integer;
  i, nMin, nMax, T: Integer;

begin
  clrscr;

  for i := 1 to n do begin
    write('x[', i, '] = '); readln(x[i]);
  end;

  nMin := 1; nMax := 1;

  for i := 2 to n do begin
    if x[i] > x[nMax] then nMax := i;
    if x[i] < x[nMin] then nMin := i;
  end;

  if nMax < nMin then begin
    T := nMin; nMin := nMax; nMax := T;
  end;

  clrscr;

  for i := 1 to n do write(x[i]:4);

  inc(nMin); dec(nMax);


  for i := nMin to nMin + (nMax - nMin) div 2  do begin
    T := x[i];
    x[i] := x[nMax - i + nMin];
    x[nMax - i + nMin] := T;
  end;

  writeln;
  for i := 1 to n do write(x[i]:4);

  readln;
end.