void TForm1::Pavardes()
{
for (n=0; n<Cn; n++)
  {
  for (m=0; m<Cn; m++)
    {
    if ((strcmp(A[n].pavarde, A[m].pavarde))==0)
      {
      Memo1->Lines->Add(A[m].pavarde);
      }
    }
  }
}