{ NAJDLHSIE_SLOVO.PAS                                                }
{ Program nájde vo textovom súbore najdlhšie slovo a vypíše ho.      }
{                                                                    }
{ Datum:18.04.2008                             http://www.trsek.com  }

program najdlhsie_slovo;
uses crt, dos;

var f: file of char;	 { premena pre pracu so suborom }

     subor: string;	 { meno vstupneho suboru }
      znak: char;        { precitany znak }
     slovo: string;      { posledne slovo }
 naj_slovo: string;      { najdene slovo }

begin
 clrscr;
 Writeln('Program najde vo textovom subore najdlhsie slovo a vypise ho.');
 Writeln;
 Write('Zadaj meno zdrojoveho kodu:');
 Readln(subor);

 { otvorim subor }
 Assign(f,subor);
 ReSet(f);

 { default hodnoty }
 slovo:='';
 naj_slovo:='';

 while( not(eof(f))) do
 begin
   read(f,znak);

   { je to znak ?}
   if((( UpCase(znak) >= 'A' )and( UpCase(znak) <= 'Z' ))
   or (( UpCase(znak) >= '' )and( UpCase(znak) <= '§' ))
   or ( znak = '_'))then
      begin
         slovo:=slovo+znak;

         { toto je teraz najdlhsie slovo }
         if( length(slovo) > length(naj_slovo))then
             naj_slovo:=slovo;
      end
   else
      slovo:='';
 end;

 { zavriem subor }
 Close(f);

 { zapisem vysledok  }
 Write('Najdlhsie slovo v subore ', subor,' je "', naj_slovo, '"');
 Write(' a je dlhe ', length(naj_slovo),' znakov.');
 Writeln;
 Readln;
end.