Сортировка в порядке уменьшения

list2->LoadFromFile("resources\\lvlt.txt");          //загружаем файл
    str = list2->Strings[2];               // присваиваем str  наименьшую оценку в статистике 
    if (bal>StrToFloat(str))                 //если заработанная оценка больше
  {
     {
      list2->Strings[2]=IntToStr(bal);     //записать на ее место новую оценку
      list2->SaveToFile("resources\\lvlt.txt");    //сохраняем
     }
    for(int i=0; i<2; i++)                // сортируем в порядке уменьшения
     {
          max=i;
         for(int j=1; j<3; j++)
         if (list2->Strings[j]>list2->Strings[max])
         max=j;     
                                       
        buf=list2->Strings[i];
        list2->Strings[i]=list2->Strings[max];
        list2->Strings[max]=buf;
 
       for(int k=0; k<list2->Count; k++)
       str =list2->Strings[k];
     }
       list2->SaveToFile("resources\\lvlt.txt");
  }
delete list2;