void TForm1::Atidaryti()
{
OpenDialog1->Title = "Pasirinkite Matricos failà";
OpenDialog1->Filter = "Teksto failai (txt) | *.txt";
if (OpenDialog1->Execute() && FileExists(OpenDialog1->FileName))
DFailas1 = OpenDialog1->FileName.c_str();
else DFailas1 = "";
OpenDialog1->Title = "Pasirinkite Masyvo failà";
OpenDialog1->Filter = "Teksto failai (txt) | *.txt";
if (OpenDialog1->Execute() && FileExists(OpenDialog1->FileName))
DFailas2 = OpenDialog1->FileName.c_str();
else DFailas2 = "";
}
//--------------------------------------------------------------------
void TForm1::SkaitytiDuom(const char f1vardas[], const char f2vardas[])
 {
ifstream fd1(f1vardas);
fd1>>n;
for (int i = 0; i < n; i++)
for (int j = 0; j < n; j++)
fd1>>X[i][j];
fd1.close();
ifstream fd2(f2vardas);
fd2>>k;
for (int i = 0; i < k; i++)
fd2>>Y[i];
fd2.close();
}
//-----------------------------------
void TForm1::RastiDid()
{ double u = Y[0];
for (int i = 0; i < k; i++)
if (Y[i] > u) u = Y[i];
}
//---------------------------------------
int TForm1::Lyginti(int &g)
{  g = 0;
for (int i = 0; i < n; i++)
if (X[i][n-1-i] == u) { C[g] = i; g++; }
return g;
}
//-----------------------
void TForm1::Pasalinti()
{for (int k = 0; k < g; k++)
 for (int i = C[g]; i < n-1; i++) {
for (int j = 0; j < n; j++) { X[i][j] = X[i+1][j]; }} n--; }
//-------------------
void TForm1::Issaugoti() {
for (int i = 0; i < n; i++)
    for (int j = 0; j < n; j++)
    StringGrid1->Cells[j+1][i+1] = FloatToStrF(X[i][j], ffFixed, 6, 2);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Atidaryti();
SkaitytiDuom(DFailas1, DFailas2);
RastiDid();
Lyginti(g);
Pasalinti();
Issaugoti();
}