Написать программу для нахождения суммы большего и меньшего из трех чисел

a = StrToInt(Edit1->Text);
b = StrToInt(Edit2->Text);
c = StrToInt(Edit3->Text);

int d, f, h;
d = Max(a, b, c);
f = Min(a, b, c);
h = d + f;
Label4->Caption = "Результат = " + IntToStr(h);

int Max(int n1, int n2, int n3)
{
if((n1 >= n2)&&(n1 >= n3))
  return n1;
else if((n2 >= n1)&&(n2 >= n3))
        retrurn n2;
      else
        return n3
}
 
int Min(int n1, int n2, int n3)
{
if((n1 <= n2)&&(n1 <= n3))
  return n1;
else if((n2 <= n1)&&(n2 <= n3))
        retrurn n2;
      else
        return n3
}

int a, b, c;

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ComCtrls.hpp>
#include <sysmac.h>
#include <Math.hpp>
 
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TEdit *Edit1;
    TEdit *Edit2;
    TEdit *Edit3;
    TButton *Button1;
    TRichEdit *RichEdit1;
    TButton *Button2;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall Button2Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner){}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
RichEdit1->Text="";//Обнуляем окно текста вывода
AnsiString getstroka="", separator="", str1="", str2=""; // Переменные строки полученная строка, разделитель, строковые переменные для читабельности кода
int counttext=0, i=0, k=0;                     // счетчик кол-ва
const int countmas=20;              // размер массива
int maxcel=10, maxdrob=10;           //допустимое количество цифр в целой и дробной части
 
separator = AnsiString(FormatSettings.DecimalSeparator); // получаем разделитель десятичных установленный в системе, на всяк случай приводим к типу AnsiString, так он char
 
double chisla [countmas];       // создаем массив чисел
 
for( i=0;i<Form1->ComponentCount;i++)      // перебираем компоненты, находим текстэдиты и работаем с тем что ввели
{
  if(Form1->Components[i]->ClassNameIs("TEdit"))
  {
     getstroka=Trim(((TEdit*)Form1->Components[i])->Text);   //убирает с концов строки пробелы
     getstroka= StringReplace(getstroka, ".", separator, TReplaceFlags()<<rfReplaceAll);    //заменяет все точки на разделитель
     getstroka= StringReplace(getstroka, ",", separator, TReplaceFlags()<<rfReplaceAll);    //заменяет все запятые на разделитель
     ((TEdit*)Form1->Components[i])->Text=getstroka;   //исправляем значение, а почему бы и нет?
 
       k=0;
       k=getstroka.Pos(separator);    //  находим позицию сепаратора (точка там или запятая)
       if (k)  // если есть разделитель
            {str1=getstroka.SubString(1,k-1);        // получается две строки первая до точки
             str2=getstroka.SubString(k+1,getstroka.Length()-1);  // вторая после точки
            }else                             //если этого сепаратора не было
                {str1=getstroka;      // то число целое в первую строку
                 str2="0";             // второй присваеваем 0
                }
        if ((str1.Length())>maxcel||str2.Length()>maxdrob)     //Если строка до запятой или после запятой больше определенной длины
            {ShowMessage("Слишком большое число. Должно же быть разумное ограничение? \n" +IntToStr(maxcel)+ " цифр до запятой \n"+IntToStr(maxdrob)+" цифр после запятой");
            ((TEdit*)Form1->Components[i])->SelectAll();  // выделяем текст
            ((TEdit*)Form1->Components[i])->SetFocus();   // ставим фокус
            Abort();
            }
 
       try {chisla[counttext]= StrToFloat(getstroka);}   // проверяет можно ли строку перевести в число типа float
       catch(...){ShowMessage("Введите число");  // если введено не число выдаем сообщение
       ((TEdit*)Form1->Components[i])->SelectAll();  // выделяем текст
       ((TEdit*)Form1->Components[i])->SetFocus();   // ставим фокус
       Abort();  //  прерываем все, пусть исправляет
       }
 
       if (counttext==countmas) {ShowMessage("Слишком много текстовых окон. Максимальное количество-" +IntToStr(countmas));Abort();}
       counttext++;    // считаем кол-во текстэдитов
  }
}
 
double maxchisla=0, minchisla=0, meanchisla=0;      //Задаем переменные и получаем
maxchisla = MaxValue(chisla,counttext-1);         //Максимальное число в массиве
minchisla=MinValue(chisla,counttext-1);             //Минимальное число
meanchisla=Mean(chisla,counttext-1);                 //Среднее значение(математическое ожидание)
 
RichEdit1->Lines->Add("Максимальное число:   "+FloatToStr(maxchisla));     //Выводим что хотим в ричедит
RichEdit1->Lines->Add("Минимальное число:    "+FloatToStr(minchisla));
RichEdit1->Lines->Add("Среднее значение:     "+FloatToStr(meanchisla));
RichEdit1->Lines->Add("Сумма мин и макс:     "+FloatToStr(minchisla+maxchisla));
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int i;
 
for( i=0;i<Form1->ComponentCount;i++)      // перебираем компоненты, находим текстэдиты
 {
  if(Form1->Components[i]->ClassNameIs("TEdit"))
  {
     ((TEdit*)Form1->Components[i])->Text="";   //очищаем окошки
  }
 }
}