Pascal. A feladat: hogy kell kiírni egy beolvasott mondat 2ik szavát?

Hát figyelj... a ciklus fejében mondat[i]-t vizsgálod, de a kiírásnál mondat[s+1+i]-t írsz ki. Gondolom mondat[s+1+i] lesz a 2. szó, a mondat[i] viszont előrébb van, mint a 2. szó, ezért a 2. szó előtti szóköznél már kilép a ciklus.

Jó lenne pontosítani a "valamikort". Milyen inputra írja ki a teljeset és milyen inputra nem?

Oké, és az általam talált hiba kijavítása után mik az eredmények?

Én a pos-al megkeresném az első szóközt, a deletével törölnék az első szóközig beleszámítva az első szóközt is (tehát a szóközt is törölném), majd a copy-val kimásolnám a következő első szóközig a mondat második szavát egy változóba, majd a változó tartalmát kiíratnám a writeln-el.

Amennyiben egy karakter sorozatban ' ', '\t', '\n', következik, egy there_is_space nevű flag változó értékét 1-re állítanám. Amennyiben ez a feltétel nem igaz, de a flag értéke 1, akkor a flaget vissza állítom 0-ra és tudom, hogy ott a következő szó kezdődik, ilyenkor a word_counter-t lehet emelni 1-el. Amennyiben a word_counter páros, azaz (wc &2), vagy (wc > 0) && (wc % 2) igaz, akkor a "mindenkori" második szónál járunk.

#9: Ne is vedd figyelembe, hogy Pascal-ról van szó :)