Упорядочить первую половину массива по убыванию, а вторую половину – по возрастанию

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int A[14];
int i,j,b,k;
AnsiString sr;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(i=0; i<=13; i++)
 A[i]=StrToInt(Memo1->Lines->Strings[i]);
for(i=0; i<11; i++)
 for(j=i+1; j<=11; j++)
  if(A[i]>A[j])
   {b=A[i];
    A[i]=A[j];
    A[j]=b;
   }
ListBox1->Items->Clear();
for (int i=0;i<=13;i++){ListBox1->Items->Add(IntToStr(A[i]));}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
ListBox1->Clear();
}
//-----------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    for (i = 0; i <= 13; i++)
        A[i] = StrToInt(Memo1->Lines->Strings[i]);
    for (int k = 0; k < 2; k++)
        for (int i = 7 * k; i < 7 * (k + 1); i++)
            for (int j = i + 1; j < 7 * (k + 1); j++)
                if (A[i] > A[j] != (k == 0)) {
                    b = A[i];
                    A[i] = A[j];
                    A[j] = b;
                }
 
    ListBox1->Items->Clear();
    for (int i = 0; i <= 13; i++) {
        ListBox1->Items->Add(IntToStr(A[i]));
    }
}