Matematické Fórum

Zdravím,
mohl by mi prosím někdo poradit?

V rámci jednoho programu se mi vyskytl tento problém -
mám určených cca 6 slov, které mi spouští různé procedury, jedno slovo ukončuje program.
A potřebuji aby bylo možno slova zadávat opakovaně, aby se program po zadání jednoho slova a spuštění jedné procedury nezastavil,ale aby bylo možné napsat další slovo které mi spustí další proceduru,... atd až do napsání slova které ukončí program.

Zkoušel jsem to cyklem repeat, kde jsem jako ukončovací podmínku dal právě dokud přečtené slovo není to dané slovo a  na začátek cyklu jsem pomocí příkazu read načetl slovo, ale tady je problém, že tento postup funguje pouze jednou - program načte slovo, provede příslušnou proceduru a pak se  zastaví a to slovo, které by se mělo na začátku cyklu načíst a posunulo by program dál (ať už provedením nějaké další procedury nebo ukončením programu), již nelze napsat.

Nevěděl by prosím někdo co s tím?
(programuji v pascalu)

Díky za radu.