void TForm1::Skaityti()
 {
  ifstream fd("Duom.txt");
  n = 0;
  while (!fd.eof())
   {
     fd>>X[a];  // ivedamos x koordinates i masyva
     a += 1;
     fd>>Y[b];
     b += 1;     // ivedamos y koordinates i masyva
     Edit1->Text = a;        //istr
     Edit2->Text = b;        //istr
    }
    if (a > b) a -= 1;         // salyga tikrina ar x ir y
    else if (b > a) b -= 1;    // koordinaciu yra vienodai, kad
      fd.close();             // taskas neturetu tik vienos koordinates
 }