void TForm1::Pavardes()
{
int n, m, c=0;
AnsiString a, b;
for (n=0; n<Cn; n++)
  {
  for (m=0; m<Cn; m++)
    {
    a=A[n].pavarde;
    b=A[m].pavarde;
    if ((a==b)&&(n!=m))
      {
      Memo1->Lines->Add(A[n].pavarde);
      c++;
      break;
      }
    }
  }
if (c==0)
  {
  Memo1->Lines->Add("Vienodø pavardþiø nëra");
  }
}