одномерный массив

[ldx]

Здравствуйте, помогите пожалуйста поставить условие!
Дан массив “В” с чётным количеством элементов. Отсортируйте первую половину массива по возрастанию, а вторую по убыванию.

Как поставить условие: отсортировать первую половину и вторую???
Сортировка по возрастанию и убыванию уже есть.

[Stilet]

Ну у тебя есть же сортировка от начала до конца, вот вместо конца первой сортировке задай длину массива/2 а во второй начало массива пусть с половины начинается

[ldx]

Что то не понял вот сортировка:

writeln('Введите количество элементов ');
 readln(n);

for k:=1 to n-1
do read(a[k]);
 readln(a[n]);

for i:=1 to n-1 do
begin

min:=i;
for j:=i+1 to n do
if a[j]<a[min] then min:=j;

 buf:=a[i];
 a[i]:=a[min];
 a[min]:=buf;

for k:=1 to n do writeln(a[k],' ');
 writeln;
end;

begin
for k:=1 to n-1
do read(a[k]);
 readln(a[n]);

for i:=1 to n-1 do
begin

min:=i;
for j:=i+1 to n do
if a[j]>a[min] then min:=j;

 buf:=a[i];
 a[i]:=a[min];
 a[min]:=buf;

for k:=1 to n do writeln(a[k],' ');
 writeln;
end;

[D-mon]

И что это такое??? Чёт это не сильно похоже на хороший тон программирования.

Что то не понял вот моя сортировка:
writeln('Введите количество элементов ');
readln(n);

for k:=1 to n do 
 read(a[k]);

for i:=1 to n/2 do
 begin
  for j:=i+1 to n/2 do
   begin
    if(a[i]>a[j])then 
     begin
      prom:=a[i];
      a[i]:=a[j];
      a[j]:=a[i];
     end;
   end;
  if(a[i+n/2]<a[j+n/2])then 
   begin
    prom:=a[i+n/2];
    a[i+n/2]:=a[j+n/2];
    a[j+n/2]:=a[i+n/2];
   end;
  Read('Sort mas: ');
  for i:=1 to n do
   read(a[k]+' ');
 end;

end;

[ldx]

Спасибо, будем разбираться!!!