donkapone

void TForm1::Pavardes(){int n, m, c;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++;      }    if (c==0)      {      Memo1->Lines->Add("Vienodø pavardþiø nëra");      break;      }    }  }}