Найти минимальный элемент массива и поменять его местами с первым

void __fastcall TForm1::Button1Click(TObject *Sender)
{
double A[12]; int i,n,ind,min;
n=StrToInt(Memo1->Lines->Count);
if (n>12) n=12;
for (i=0;i<n;i++)
A[i]=StrToFloat(Memo1->Lines->Strings[i]);
ind=0;
min=A[0];
for (i=0;i<n;i++)
 
{
if (A[i]<min)
{ min=A[i]; ind=i;
}
A[ind]=A[0]; A[0]=min;
Edit1->Text=FormatFloat("0.000",min)+"index"+IntToStr(ind);
Memo2->Clear();
for (i=0;i<n;i++)
Memo2->Lines->Add(A[i]);
}
}

void __fastcall TForm1::Button1Click(TObject*Sender)
{
    double A[12];
    int i,n,ind,min;
    n=Memo1->Lines->Count;
    if (n>12)
        n=12;
    for (i=0;i<n;i++)
        A[i]=StrToFloat(Memo1->Lines->Strings[i]);
    ind=0;
    min=A[0];
    for (i=1;i<n;i++)
    {
        if (A[i]<min)
        {
            min=A[i];
            ind=i;
        }
    }
    A[ind]=A[0];
    A[0]=min;
    Edit1->Text=FormatFloat("0.000",min)+" index "+IntToStr(ind);
    Memo2->Clear();
    for (i=0;i<n;i++)
        Memo2->Lines->Add(FloatToStr(A[i]));
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
float R,s,p,w,*k;
 int i;
  w=StrToFloat(Memo1->Lines->Count);
 k= new float [w];
 for (i=0; i<w; i++)
k[i]=StrToFloat(Memo1->Lines->Strings[i]);
float min=k[0];
for (i=1; i<w; i++)
if (min<k[i]) {min=k[i];}
R=(min);
Edit1->Text=R;