параметризованная функция

template <class cl>void Select(cl *item,int count)
{register int i,j;
cl t;
for(i=0;i<count;i++)
{for(j=count-1;j>=i;--j)
{if(item[j-1]>item[j])
{t=item[j-1];
item[j-1]=item[j];
item[j]=t;}}}}

void __fastcall TForm1::Button1Click(TObject *Sender)
{int i;  AnsiString temp;
n=Edit1->Text.ToInt();
if  (RB1->Checked==true)
{int *A= new int[n];
for(i=0;i<n;i++)
{A[i]=random(50);
temp+=IntToStr(A[i])+"  ";}
LabelStart->Caption=temp;
Select (A,n);
temp.Delete(1,temp.Length());
for(i=0;i<n;i++)
{temp+=IntToStr(A[i])+"  ";}
LabelStop->Caption=temp;
delete[] A;}
 
if  (RB2->Checked==true)
{double *A= new double[n];
for(i=0;i<n;i++)
{A[i]=double(random(10000))/100;         
temp+=FloatToStr(A[i])+"  ";}
LabelStart->Caption=temp;
temp.Delete(1,temp.Length());
Select(A,n);
for(i=0;i<n;i++)
{temp+=FloatToStr(A[i])+"  ";}
LabelStop->Caption=temp;
delete[] A;}
 
if  (RB3->Checked==true)
{char*A= new char[n];
for( i=0;i<n;i++)
{A[i]=65+random(25);
temp+=AnsiString(A[i])+"  ";}
LabelStart->Caption=temp;
temp.Delete(1,temp.Length());
Select(A,n);
for(i=0;i<n;i++)
{temp+=AnsiString(A[i])+"  ";}
LabelStop->Caption=temp;
delete[] A;}}