Разделить массив на 3 части, первую отсортировать по возрастанию, вторую -- по убыванию, третью -- отобразить зеркально.

program rr;
uses crt;
const
N=12;
k1=5;
k2=30;
var
a:array[1..N] of integer;
d,d1,i,x,u,t,j:integer;
 
begin
   clrscr;
   d:=k2-k1+1;
   writeln('Созданный массив');
   randomize;
   for i:=1 to N do
    begin
    a[i]:=random(d)+k1;
    write(a[i],' ');
    end;
    writeln;
    writeln('Отсортированный массив');
   d1:=N div 3;
   for x:=1 to d1-1 do
   for j:=1 to d1-1 do
   if a[j]>a[j+1] then
    begin
    t:=a[j];
    a[j]:=a[j+1];
    a[j+1]:=t;
    end;
    for x:=1 to d1 do
        write(a[x],' ');
   for x:=d1+1 to d1*2-1 do
   for j:=d1+1 to d1*2-1 do
   if a[j]<a[j+1] then
    begin
    t:=a[j];
    a[j]:=a[j+1];
    a[j+1]:=t;
    end;
    for x:=d1+1 to d1*2 do
    write(a[x],' ');
    for u:=N downto d1*2+1 do
   for x:=d1*2+1 to N do
   for j:=d1*2+1 to N do
    begin
    t:=a[j];
    a[j]:=a[u];
    a[u]:=t;
    end;
 
    for x:=d1*2+1 to N do
    write(a[x],' ');
 
readln;
end.

program rr;
uses crt;
const mx=100;
var a:array[1..mx] of integer;
    n,d,i,x,x1,x2,t,j:integer;
begin
clrscr;
randomize;
repeat
write('Введите размер массива не более ',mx,' , кратный 3 n=');
readln(n);
until (n in [1..mx])and(n mod 3=0);
writeln('Введите интервал чисел x1,x2');
readln(x1,x2);
writeln('Созданный массив');
for i:=1 to n do
 begin
  a[i]:=random(x2-x1+1)+x1;
  write(a[i],' ');
 end;
writeln;
writeln('Отсортированный массив');
d:=N div 3;
for x:=1 to d-1 do
for j:=1 to d-1 do
if a[j]>a[j+1] then
 begin
   t:=a[j];
   a[j]:=a[j+1];
   a[j+1]:=t;
 end;
for x:=1 to d do
write(a[x],' ');
for x:=d+1 to d*2-1 do
for j:=d+1 to d*2-1 do
if a[j]<a[j+1] then
 begin
  t:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=t;
 end;
for x:=d+1 to d*2 do
write(a[x],' ');
for j:=1 to d div 2 do
 begin
  t:=a[2*d+j];
  a[2*d+j]:=a[n-j+1];
  a[n-j+1]:=t;
 end;
for x:=d*2+1 to n do
write(a[x],' ');
readln
end.