CIA H:

const int mas = 100;
const char *Duom = "Duom.txt";
const char *Rez = "Rez.txt";
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TButton *Button1;
        TMemo *Memo1;
        TMemo *Memo2;
        TButton *Button2;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
private:	// User declarations
 int  X[mas],
      Y[mas],
      x, y, a,b;
      double
      T[mas];


      void Ivesti(const char fv[], int A[], int B[],int &n, int m);
      void Skaiciuoti(double D[]);

CIA CPP:
void TForm1::Ivesti(const char fv[], int A[], int B[],int &n, int m)
{
 ifstream fd(fv);
 n = 0; m = 0;
 while (!fd.eof()) {
  fd>>X[n];
  n++;
  Memo1->Lines->Add(X[n]);  // cia tik patikrint
  fd>>Y[m];
  m++;
  Memo2->Lines->Add(Y[m]);  //nu ir cia tas pats
  }
  if ( n > m ) n -= 1;
  if ( m > n ) m -= 1;
  
}
//-----------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Ivesti(Duom, X, Y, a, b);
}