Как переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальным элементами?

[xEk]

Подскажите как реализовать перестановку элементов массива в заданом промежутке? Минимум и максимум массива я нашел, а как переставить элементы не знаю... Язык програмирования С.

[BDA]

uses
  crt;

const
  n = 10;

var
  a: array[1..n] of integer;
  i: integer;
  posmax, posmin: integer;
  k1, k2: integer;
  tmp: integer;

function min(a, b: integer): integer;
begin
  if a > b then
    min := b
  else
    min := a;
end;

function max(a, b: integer): integer;
begin
  if a > b then
    max := a
  else
    max := b;
end;

begin
  randomize;
  for i := 1 to n do
    a[i] := random(101) - 50;
  for i := 1 to n do
    write(a[i]:4, ' ');
  posmax := 1;
  posmin := 1;
  for i := 2 to n do
  begin
    if a[i] > a[posmax] then
      posmax := i
    else
    if a[i] < a[posmin] then
      posmin := i;
  end;
  k1 := min(posmax, posmin) + 1;
  k2 := max(posmax, posmin) - 1;
  for i := k1 to (k1 + k2) div 2 do
  begin
    tmp := a[i];
    a[i] := a[k1 + k2 - i];
    a[k1 + k2 - i] := tmp;
  end;
  writeln;
  for i := 1 to n do
    write(a[i]:4, ' ');
  readln;
end.

Перестановку осуществляет:

  k1 := min(posmax, posmin) + 1;
  k2 := max(posmax, posmin) - 1;
  for i := k1 to (k1 + k2) div 2 do
  begin
    tmp := a[i];
    a[i] := a[k1 + k2 - i];
    a[k1 + k2 - i] := tmp;
  end;