Написать структуру Абитуриент и определить средний бал

typedef struct{
AnsiString FIO;
int otc[3];
double srbal,st;
 
}Tstudent;
Tstudent Stud[100],st;
int nzap=-1;
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
Memo1->Clear();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 nzap++;
Stud[nzap].FIO =Edit1->Text;
Stud[nzap].otc[0] =StrToInt(Edit2->Text);
Stud[nzap].otc[1] =StrToInt(Edit3->Text);
Stud[nzap].otc[2] =StrToInt(Edit4->Text);
Stud[nzap].srbal=(Stud[nzap].otc[0]+Stud[nzap].otc[1]+Stud[nzap].otc[2])/3.0;
Memo1->Lines->Add(Stud[nzap].FIO)+"      "+IntToStr(Stud[nzap].otc[0])+"  "+IntToStr(Stud[nzap].otc[1])+"    "+IntToStr(Stud[nzap].otc[2]);        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
for (int i=0;i<=nzap;i++ )
for (int j=i+1;j<=nzap;j++)
if (Stud[i].srbal>Stud[j].srbal )
 {st=Stud[i];
  Stud[i]=Stud[j];
  Stud[j]=st;}
for (int i=0;i<=nzap;i++)
 if (Stud[i].srbal>2)
Memo1->Lines->Add (Stud[i].FIO)+"      "+IntToStr(Stud[i].otc[0])+"  "+IntToStr(Stud[i].otc[1])+"    "+IntToStr(Stud[i].otc[2]);
}