Написать программу

const int length = 18;
double H[length] = {0};
 
void __fastcall TForm10::Button2Click(TObject *Sender)
{
    Memo1->Clear();
}
 
void __fastcall TForm10::Button1Click(TObject *Sender)
{
if (RadioButton1->Checked)
 
        {
            Memo1->Lines->Add("---- Заполнение ----");
            H[0]=1.098612289;
            for (int i = 1; i < length; i++)
            {
              H[i]=-H[i-1]*1.263404132+1.318334747;
              Memo1->Lines->Add("H[ " + IntToStr(i)+ " ] = " + FloatToStr(H[i]));
            }
        }
       if (RadioButton2->Checked)
  {
 
 
            Memo1->Lines->Add("---- Простая вставка ----");
    int tmp;
    for (int i = 0, j = 0; i<length; i++)
[b][color="red"]    {
        tmp = H[i];
        j = i - 1;
        while ((j >= 0) && (H[j] > tmp))
        {
            H[j + 1] = H[j];
            j = j - 1;
        }
        H[j + 1] = tmp;
         Memo1->Lines->Add("H[  ] = " + FloatToStr(H[j]));
    }[/color][/b][color="red"][/color]
 
 
}