void TForm1::Pavardes()
   2.
      {
   3.
      int n, m, c=0;
   4.
      AnsiString a, b;
   5.
      for (n=0; n<Cn; n++)
   6.
        {
   7.
        for (m=0; m<Cn; m++)
   8.
          {
   9.
  11.
          if ( !(strcmp(A[n].pavarde,A[m].pavarde) && (n!=m) )
  12.
            {
  13.
            Memo1->Lines->Add(A[n].pavarde);
  14.
            c++;
  15.
            }
  16.

  21.
          }
  22.
        }
          
	    if (!c)
  17.
            {
  18.
            Memo1->Lines->Add("Vienodø pavardþiø nëra");
  19.
            break;
  20.
            }
  23.
      }