Сортировки в C++Builder

#pragma hdrstop
#include "Unit1_5.h"
#include "math.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
 
void choicesSort(int *arrayPtr, int length_array) // сортировка выбором
{
    for (int repeat_counter = 0; repeat_counter < length_array; repeat_counter++)
    {
        int temp = arrayPtr[0]; // временная переменная для хранения значения перестановки
        for (int element_counter = repeat_counter + 1; element_counter < length_array; element_counter++)
        {
            if (arrayPtr[repeat_counter] > arrayPtr[element_counter])
            {
                temp = arrayPtr[repeat_counter];
                arrayPtr[repeat_counter] = arrayPtr[element_counter];
                arrayPtr[element_counter] = temp;
             }
        }
    }
 
}
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i, mas[5000];
Randomize;
ListBox1->Clear();
 
for ( i = 0; i < 5000; i++ ){
 mas[i] = random(5000);
 ListBox1->Items->Append(IntToStr(mas[i]));
}
 
}
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 TDateTime T1, T2; // объявление переменных для моментов времени
 AnsiString S;
 
 switch (RadioGroup1->ItemIndex){
 case 0: { T1 = Time();  // nachalo
 
 int sort_array [5000];
 
TStringList *list = new TStringList;
for (int i=0;i<ListBox1->Items->Count;i++) {
   sort_array [i] = list->Add(ListBox1->Items->Strings[i]);
}
 choicesSort(sort_array,  ListBox1->Items->Count); // вызов функции сортировки выбором
// сортировка массива
     for (int i = 0; i < 5000; i++){
    ListBox2->Items->Add(IntToStr(sort_array[i]));
    }
  delete list;
 
 // kod prigramio
 
 T2 = Time(); // *******okonchanie*******
 
 DateTimeToString (S , "hh:nn:ss:zzz", T2 -T1 );
 
 Edit1->Text = S;
 
 break;
 }
 case 1: {   T1 = Time();  // nachalo
 
 // kod prigramio
 
 T2 = Time(); // ********************okonchanie****
 
 DateTimeToString (S , "hh:nn:ss:zzz", T2 -T1 );
 
 Edit1->Text = S;
 break;
 }
 case 2: {  T1 = Time();  // nachalo
 
 //************** kod prigramio ************
 
 T2 = Time(); // okonchanie
 
 DateTimeToString (S , "hh:nn:ss:zzz", T2 -T1 );
 
 Edit1->Text = S;
 break; }
  }
}