void TForm1::Pavardes()
{
int n, m, c=0;
for (n=0; n<Cn; n++)
  {
  for (m=0; m<Cn; m++)
    {
    if (((strlen(A[n].pavarde))!=0)&&((strlen(A[m].pavarde))!=0)&&((strcmp(A[n].pavarde, A[m].pavarde))==0)&&((strlen(A[n].sifras))!=0)&&((strlen(A[m].sifras))!=0)&&((strcmp(A[n].sifras, A[m].sifras))==0)&&(n!=m))
      {
      Memo1->Lines->Add("Studento kodas:");
      Memo1->Lines->Add(A[n].sk);
      Memo1->Lines->Add("Asmens kodas:");
      Memo1->Lines->Add(A[n].ak);
      Memo1->Lines->Add("Vardas:");
      Memo1->Lines->Add(A[n].vardas);
      Memo1->Lines->Add("Pavard&#279;:");
      Memo1->Lines->Add(A[n].pavarde);
      Memo1->Lines->Add("Kursas:");
      Memo1->Lines->Add(A[n].kursas);
      Memo1->Lines->Add("Grup&#279;s &#353;ifras:");
      Memo1->Lines->Add(A[n].sifras);
      Memo1->Lines->Add("------------------------------");
      c++;
      }
    }
  }
if (c==0)
  {
  Memo1->Lines->Add("Student&#371;, besimokan&#269;i&#371; vienoje grup&#279;je ir turin&#269;ius vienodas pavardes, n&#279;ra");
  }
}