Someone

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