Mine

while (!fd.eof()){        fd.get(E,256); fd.ignore();                // Sukuriam nauja eilute                char E2[256];                // Tikrinam ar eilute netuscia                if (strlen(E) != 0){                   // Nuskaitom zodi                   char *p = strtok(E, " ");                   char *m = strpbrk(p, "JjUuSsTtAaSs");                   /* Jei žodis tiesiog tarpas - praleidžiam.                     Jei ne - tikrinam ar vardo simbolis                     yra žodžio pradžioje, ir jei tai tiesa                     jo vietoje užrašome savo vardą */                   if (strcmp(p," ") != 0){                         if(m - p == 0) { p = "Justas"; }                         else;                   // Kopijuojam žodį i naują eilutę                   strcpy(E2,p);                   }                   else;                   /* Kol ne eilutės pabaiga, ieškom                     žodžių, jei reik juos keičiam,                     pridedam prie eilutės */                                        while((p = strtok(NULL, " ")))  {                   if(strcmp(p," ") != 0){                   char *m = strpbrk(p, "JjUuSsTtAaSs");                   if (p != " "){                      if(m - p == 0) { p = "Justas"; }                      else;                   strcat(E2, " ");                   strcat(E2,p);                   }                   else;                   }                }                // Išvedam eilutę į ekraną                Memo2->Lines->Add(E2);              }else;}// Uždarom failąfd.close();// Išsaugom rezultatusMemo2->Lines->SaveToFile(Rfv);}