Рассортировать массив по убыванию числа от начала массива до первого экстремума, от первого до второго, от второго до конца массива.

const
  N=10;{количество элементов массива}
type
  MyArr = array [1..N] of integer;
...
procedure Sort(x:MyArr; a,b:integer);
var
  i,j,temp:integer;
begin
  for i:=a to b-1 do
    for j:=i+1 to b do
      if x[i]<x[j] then
      begin
        temp:=x[i];
        x[i]:=x[j];
        x[j]:=temp
      end;
end;

const
n=10;
type
mas=array[1..100] of integer;
 
function MinMax (k:byte;a:mas):integer;
var
maxmin,i:integer;
begin
case k of
1:begin
maxmin:=a[1];
for i:=2 to n do
if  a[i]>maxmin then maxmin:=a[i];
end;
2:begin
maxmin:=a[1];
for i:=2 to n do
if a[i]<maxmin then maxmin:=a[i];
end;
end;
minmax:=maxmin;
end;
 
var
a:mas;
i:integer;
begin
randomize;
write('[');
for i:=1 to n do begin
a[i]:=random(51)-10;
write(a[i]:3);
end;
writeln(']');
writeln('max=',minmax(1,a));
writeln('min=',minmax(2,a));
readln
end.

function MaxMin(k:byte;a:mas; var min:integer):integer;
.........................
MaxMin:=max;
end;
...........................
x:Maxmin(n,a,mn);
min:=mn;

USES CRT;
const na=10; nb=7;
type mas=array[1..na] of integer;
var a:mas; b:mas; i,imax,imin,max,min,k1,k2:integer;
 
  Procedure sozd(var x:mas; k:integer);
  begin
    for i:=1to k do
    x[i]:=random(50);
  end;
  Procedure VIVOD(var x:mas; k:integer; t:string);
begin
   writeln(t);
   for i:=1 to k do
   write(x[i]:0,'');
   writeln;
end;
  function maxmin(var x:mas; k:integer):integer;
var i:integer;
 begin
    min:=maxint; max:=-maxint;
    for i:=1 to k do
 begin
    if x[i]>max then
 begin
    max:=a[i];
    imax:=i;
 end;
    if x[i]<min then
 begin
    min:=x[i];
    imin:=i;
 end;
 end;
    k1:=imin;k2:=imax;
    if imax>imin then
 begin
    k1:=imax;k2:=imin;
 end;
  Procedure sort(var l1,l2:integer;x:mas);
 var c:integer;
 begin
    if l2-l1<1 then
 begin
    i:=l1;
    repeat
    if x[i]<x[i+1]then
 begin
    c:=x[i]; x[i]:=x[i+1];
    x[i+1]:=c;
    if  i<l1 then dec(i);
 end
    else inc(i);
    until i<=l2
 end;
 end;
 procedure rabota(var x:mas; k:integer, t:string);
 begin
  sozd(x,k);
  vivod(x,k,t);
  sort(l1,l2,x);
  vivod(x,k,t);
  sort(l1,l2,x);
  vivod(x,k,t);
  sort(l1,l2,x);
  vivod(x,k,t)
 end;
 BEGIN
  clrscr;
   randomize
    rabota(na, 'A');
    rabota(nb, 'B');
   readkey
  end.