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 rezultatus
Memo2->Lines->SaveToFile(Rfv);
}