Упорядочивание массива методом Ларионова (Larionov Sort)

 // Cортировка Ларионова
  int ik = 0; // Число нечётных элементов перед просмотром mass
     for(int ij = 0, iByf; ij < list->Count; ++ij) //iByf от Byfer
      {
        if(mass[ij]%2==1)//Если число нечётное
        {
         iByf = mass[ik];//Временное хранение чётного элемента
         mass[ik] = mass[ij];//Меняем местами текущий нечётный элемент
         mass[ij] = iByf;//с первым чётным
         ik++;//счётчик числа нечётных элементов
        }
      }

AnsiString LarionovSort(AnsiString asd)
{
 
 TStringList * list = new TStringList();  //создаём динамически объект класса TStringList
 list->DelimitedText = Trim(asd);         //разделяем строки в объекте list и удаляем передний и задний пробел в строке
 list->Delimiter = ' ';                   //разделитель
 
 asd ="";
 int *mass = new int[list->Count]; //создаём массив с текущей длиной по количеству строк объекта list класса TStringList();
 
 for(int d = 0; d < list->Count; d++)
 {
   mass[d] = list->Strings[d].ToInt();  //заносим данные в массив
 }
  // Cортировка Ларионова
  int ik = 0; // Число нечётных элементов перед просмотром mass
     for(int ij = 0, iByf; ij < list->Count; ++ij) //iByf от Byfer
      {
        if(mass[ij]%2==1)//Если число нечётное
        {
         iByf = mass[ik];//Временное хранение чётного элемента
         mass[ik] = mass[ij];//Меняем местами текущий нечётный элемент
         mass[ij] = iByf;//с первым чётным
         ik++;//счётчик числа нечётных элементов
        }
 
      }
 
 
 for (int s = 0; s < list->Count; s++)
   {
    asd+=IntToStr(mass[s])+ " ";       // заносим информацию из массива в переменную asd
   }
 
  delete [] mass; // удаление объекта массива созданного динамически
  mass = NULL;
  delete list;    // удаление объекта list созданного динамически
  list = NULL;
  return asd;
}
void __fastcall TForm1::PowerClick(TObject *Sender)
{
if(InputMas->Text.IsEmpty())
 {
    ShowMessage("Введите в поле через пробел вещественные числа ");
    InputMas->SetFocus();
    return;
 }
 OutputMas->Text = LarionovSort(InputMas->Text); //вызов функции  SelectionSort
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
InputMas->Text = "15 106 12 5 22";
}