Первые 5 элементов массива упорядочить по возрастанию, вторые 5 - по убыванию

const n=15;
var a:array[1..n] of integer;
    i,j,k,x:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
writeln;
k:=n div 3;
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
for i:=2*k+1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Сортировка 1 и 3 третей массива');
for i:=1 to n do
write(a[i]:3);
end.

const n=15;
var a:array[1..n] of integer;
    i,j,k,nmin,x:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
writeln;
k:=n div 3;
for i:=1 to k-1 do
 begin
  nmin:=i;
  for j:=i+1 to k do
  if a[j]<a[nmin] then nmin:=j;
  x:=a[i];
  a[i]:=a[nmin];
  a[nmin]:=x;
  nmin:=2*k+i;
  for j:=2*k+i+1 to n do
  if a[j]<a[nmin] then nmin:=j;
  x:=a[2*k+i];
  a[2*k+i]:=a[nmin];
  a[nmin]:=x;
 end;
writeln('Сортировка 1 и 3 третей массива');
for i:=1 to n do
write(a[i]:3);
end.