{ SLOVA.PAS Copyright (c) TrSek alias Zdeno Sekerak } { Vytvorte program, ktory z daneho textoveho suboru vypise kazde } { slovo do osobitneho riadku. } { } { Datum:23.05.2004 http://www.trsek.com } program slova; var f:file of char; ch:char; meno:string; slovo:string; begin WriteLn('Z textoveho suboru vypisem kazde slovo do osobitneho riadku.'); Write('Zadaj meno suboru:'); ReadLn(meno); Assign(f,meno); ReSet(f); { znulujeme } slovo:=''; while(not(Eof(f))) do begin { precita 1 znak } Read(f,ch); { dalsi znak ktory nieje medzera} if(ch>#32)then begin slovo:=slovo+ch; end else begin if(slovo<>'')then WriteLn(slovo); slovo:=''; end; end; Close(f); WriteLn('+++ Hotovo +++'); ReadLn; end.