Считывать входные данные с файла

using namespace std;
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int Vr, Vrs, Vrc, Vvup, Vvdn, Wup, Wdn, Ue, U;
 int Hup, Hdn, FLc, FLst;
 float tup, tdn, T, Tendup, Tenddn;
 float Sup, Sdn;
 double Ang;
 float FLmax;
 
 FILE *in;
 in = fopen("start of manoeuvr.txt","r");
 fscanf(in,"%f",&T);
 T = static_cast<int> (T) - 48;
 FILE *in1;
 in1 = fopen("wind direction.txt","r");
 fscanf(in1, "%f", &Ang);
 Ang= static_cast<int> (Ang) - 48;
 FILE *in2;
 in2 = fopen("wind speed.txt","r");
 fscanf(in2,"%d",&U);
 U= static_cast<int> (U) - 48;
 FILE *in3;
 in3 = fopen("flight ceiling.txt","r");
 fscanf(in3,"%f",&FLmax);
 FLmax=static_cast<int> (FLmax) - 48;
  FILE *in4;
 in4 = fopen("real speed starting.txt","r");
 fscanf(in4,"%f",&Vrs);
 Vrs=static_cast<int> (Vrs) - 48;
  FILE *in5;
 in5 = fopen("real speed cruising.txt","r");
 fscanf(in5,"%f",&Vrc);
 Vrc=static_cast<int> (Vrc) - 48;
   FILE *in6;
 in6 = fopen("vertical speed of climb.txt","r");
 fscanf(in6,"%f",&Vvup);
 Vvup=static_cast<int> (Vvup) - 48;
   FILE *in7;
 in7 = fopen("vertical speed of descent.txt","r");
 fscanf(in7,"%f",&Vvdn);
 Vvdn= static_cast<int> (Vvdn) - 48;
    FILE *in8;
 in8 = fopen("hight of cruising level.txt","r");
 fscanf(in8,"%f",&FLc);
 FLc= static_cast<int> (FLc) - 48;
  FILE *in9;
 in9 = fopen("hight of ground level.txt","r");
 fscanf(in9,"%f",&FLst);
 FLst= static_cast<int> (FLst) - 48;
 
 Ue=cos(Ang*3.14/180)*U;
 Wup=Vrs;
 Wdn=Ue;
 Hup=FLc-FLst;
 Hdn=FLc-FLst;
 tup=Hup/Vvup;
 tdn=Hdn/Vvdn;
 Sup=Wup*tup;
 Sdn=Wdn*tdn;
 Tendup=T+tup;
 Tenddn=T+tdn;
 
 Memo1->Lines->Add(IntToStr(Wup));
 Memo1->Lines->Add(IntToStr(Wdn));
 Memo2->Lines->Add(IntToStr(Hup));
 Memo2->Lines->Add(IntToStr(Hdn));
 Memo3->Lines->Add(FloatToStr(tup));
 Memo3->Lines->Add(FloatToStr(tdn));
 Memo4->Lines->Add(FloatToStr(Sup));
 Memo4->Lines->Add(FloatToStr(Sdn));
 Memo5->Lines->Add(FloatToStr(Tendup));
 Memo5->Lines->Add(FloatToStr(Tenddn));
 if ( (FLst+Hup)>=FLmax)
 Memo6->Lines->Add("Descend");
 else
 Memo6->Lines->Add("Maintain FL untill further instructions");
 
}