Packal slova v texte – Pascal – Fórum – Programujte.com

Prosim o pomoc!!!!!!!!!!!! Pascal
na disku je textovy subor, ktory obsahuje slova. Vytvorte proceduru ktora vypise na obrazovku cislo riadku a slova ktore v tom riadku maju viac ako tri pismena.

toto su tie slova:

kde prsalo a mrholilo
prasiatko sa narodilo
a vsetci ho chceli dat
na hrniec.

O slovech už se tu psalo dostkrát, stačí pohledat: počítání slov v řetězci http://programujte.com/index.php?akce=diskuze&kam=vlakno&tema=9177-pocet-slov-oddelenych-lubovolnym-poctom-medzier, výběr náhodných slov ze souboru (ale to asi nepomůže) http://programujte.com/index.php?akce=diskuze&kam=vlakno&tema=9222-potrebuju-poradit-s-ukolem, dělení stringu na slova http://programujte.com/index.php?akce=diskuze&kam=vlakno&tema=9328-helpplease-soubor-txt_nacteni_string a to byla teprve první stránka. Uznávám, že když se každé druhé vlákno jmenuje "prosím pomoc", tak se v tom hledá dost špatně :-/.

Tvůj případ by mohl vypadat nějak takhle:
1) Načtu celý řádek (Readln) do nějakého řetězce (string).
2) Na obrazovku napíšu číslo řádku (tj. kolikátý řádek už jsem načetl, tj. hodnotu nějaké proměnné, kterou po každém řádku zvýším o 1).
3) Procházím načtený řádek od začátku tak dlouho, dokud nenarazím na mezeru (se stringem se dá pracovat jako s polem znaků (array[1..length(ten řetězec)] of char) a pomocí indexu z něj číst jednotlivé znaky).
4) Podívám se, jak daleko od začátku řádku už jsem. Jestli dál než 3 písmena, tak je to slovo, které mám za úkol vypsat. Z řádku ho vytáhnu funkcí Copy, vypíšu ho na obrazovku.
5) Ať už bylo jakkoli dlouhé, z toho řádku ho procedurou Delete vymažu.
6) Pokud v řádku ještě něco zbylo, jedu znova od bodu 3.
7) Po zpracování celého řádku pokračuju načtením dalšího - bod 1. To celé až do konce souboru (funkce Eof).

Pusť se do programování a když narazíš na problém, hoď sem zdroják.