Umístnení souboru www.TrSek.com/zadania/slova.pas
{ 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.
Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com