Упорядочить столбцы матрицы по возрастанию их характеристик.

#include <vcl.h>
#pragma hdrstop
 #include <time.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int i, j;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
StringGrid1->RowCount=StrToInt(Edit1->Text);
StringGrid1->ColCount=StrToInt(Edit2->Text);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
time_t x;
srand((unsigned) time (&x));
for(int i=0; i<StringGrid1->RowCount; i++)
for(int j=0; j<StringGrid1->ColCount; j++)
StringGrid1->Cells[j][i]=rand()%30;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
int har=1;
int min;
int n_min;
    for(int j=0; j<StringGrid1->ColCount; j++)
      {
        har=1;
        for(int i=0; i<StringGrid1->RowCount; i++)
          if(StrToInt(StringGrid1->Cells[i][j])>0 && i%2==0)
            har*=StrToInt(StringGrid1->Cells[j][i]);
            int* b=new int [har];
       for(int i=1; i<j-1; i++)
        {
         int min=b[i];
         int n_min=i;
               for(int k=i+1; k<i; k++)
        {
         if(b[i]<min)
         {
          min=b[k];
          n_min=k;
         }
       b[n_min]=b[i];
       b[i]=min;
       for(int f=0; f<StringGrid1->ColCount; f++)
             {
               int *c= new int[IntToStr(StringGrid1->Cells[n_min][f]]);
               StringGrid1->Cells[n_min][f]= StringGrid1->Cells[i][f];
               StringGrid1->Cells[i][f]=c[f];
         }
     }
      }
 
}
//------------------------------------------------------------------------------------------------------

int *c= new int[IntToStr(StringGrid1->Cells[n_min][f]]);