{ Bez1Znak.PAS Copyright (c) TrSek alias Zdeno Sekerak } { Je dany textovy subor f. Skupina znakov medzi dvoma medzerami sa } { nazyva slovo. Vytvorte subor g ktory, obsahuje vsetky slova f } { okrem 1-znakovych slov. Jednoznakovym slovom je odobrata aj jedna } { medzera. } { } { Datum:23.05.2004 http://www.trsek.com } program bez_1znakovych; var f:file of char; g:text; ch:char; slovo:string; begin WriteLn('Vycita vsetky slova a vynecha 1-znakove'); Writeln('Spracujem subor jedno.txt do suboru bez1.txt'); Assign(f,'jedno.txt'); Assign(g,'bez1.txt'); ReSet(f); ReWrite(g); { znulujeme } slovo:=''; while(not(Eof(f))) do begin { precita 1 znak } Read(f,ch); { dalsi znak ktorz nieje medzera} if(ch <> ' ')then begin slovo:=slovo+ch; end else begin { slovo je vacsie ako 1 } if(length(slovo)>1) then Write(g, slovo+' '); slovo:=''; end; end; Close(f); Close(g); WriteLn('Hotovo'); Readln; end.