void TForm1::Atidaryti()          //metodas failø atidarymui ir sukûrimui
{
  OpenDialog1->Title = "Matricos failas";
  OpenDialog1->Filter = "Tekstiniai failai (TXT) | *.txt";
  if (OpenDialog1->Execute() && FileExists(OpenDialog1->FileName))
    FVardas1 = OpenDialog1->FileName.c_str();
  else FVardas1 = "";
                       //Atidaromas failas ávesti matricos duomenims

  OpenDialog1->Title = "Masyvo failas";
  OpenDialog1->Filter = "Tekstiniai failai (TXT) | *.txt";
  if (OpenDialog1->Execute() && FileExists(OpenDialog1->FileName))
    FVardas2 = OpenDialog1->FileName.c_str();
  else FVardas2 = "";
                     //Atidaromas failas ávesti masyvo duomenims

  SaveDialog1->Title = "Iðsaugoti";
  SaveDialog1->Filter = "Tekstiniai failai (TXT) | *.txt";
    if(SaveDialog1->Execute())
       CRez = SaveDialog1->FileName.c_str();
    else  CRez = "";
                     //Sukuriamas failas saugoti rezultatams
}