void TForm1::TikrintiSuBaziniais(char *p)
{
 NuskaitytiBazinius();
 ar = true;
 char *z = strtok(beilk, skyrikliai);
 while(z){
  if(ar && z && strcmp(z,p) != 0)
   ar = true;
  else
   ar = false;
  z = strtok(NULL, skyrikliai);
  }
}

void TForm1::RastiIlgZodi(char eilk[],int &pr, int &ilg)
{
 pr = -1;
 ilg = 0;
 char *p = strtok(eilk, skyrikliai);
 while (p){
  if(p && strlen(p) > ilg){
   TikrintiSuBaziniais(p);
    if(ar){
   pr = p - eilk;
   ilg = strlen(p);
   }
  }
  p = strtok(NULL, skyrikliai);
 }
}