Program nájde vo textovom súbore najdlhšie slovo a vypíše ho

{ 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.