Вывести первое слово текста наибольшей длины

var
 s,sl,smax:string;
 f:text;
 dmax,i:integer;
 begin
 assign(f,'in.txt');
 reset(f);
 smax:=''; dmax:=0; sl:='';
 while not (Eof(f)) do
 begin
 readln(f,s);
 s:=s+' ';
 for i:=1 to length(s) do
     if s[i]<>' ' then sl:=sl+s[i] else
        begin
        if length(sl)>dmax then
           begin
           smax:=sl;
           dmax:=length(sl);
           sl:='';
        end;
     end;
 end;
 writeln('Самое длинное слово ',smax,' длиной в ',dmax);
 close(f);
 end.

var     
 f:text;        
 s,temp,max,name:string;        
 i,k:integer;       
begin       
readln(name);
name:=name+'.txt';
assign(f,name);reset(f);    
max:='';    
  while not eof(f) do       
  begin     
       readln(f,s);     
       for i:=1 to length(s) do                       
       begin
         if s[i]<>' ' then inc(k) // если пробел - идём дальше, если нет - наращиваем счётчик букв в слове
          else k:=0;
         if k=0 then if length(max)<length(temp) then max:=temp; // сравниваем длину текущего слова
         if k=0 then temp:=''; // обнуляем временную переменную для формирования нового слова
         if k>0 then if s[i]='.' then continue else temp:=temp+s[i]; // формируем новое слово
       end;    
   end;     
  close(f); 
 if length(max)<length(temp) then max:=temp; // для последнего слова в тексте
 writeln(max);
end.