Mine

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");  }}