В каждой строке строке файла найти самое длинное слово и дописать его в конец строки

uses crt;
var  f,g: text;
     s,sl,smax: string;
     i,dmax,ks: integer;
begin
assign(f,'D:\in.txt');
assign(g,'D:\temp.txt');
reset(f); rewrite(g);
while not (eof(f)) do
      begin
      inc(ks);
      readln(f,s);
      s:=s+' '; sl:='';dmax:=0;
      for i:=1 to length(s) do
      if s[i]<>' ' then sl:=sl+s[i] else
         begin
         if length(sl)>dmax then
            begin
            dmax:=length(sl);
            smax:=sl;
            end;
         sl:='';
         end;
      s:=s+smax;
      writeln(g,s);
      end;
close(f); close(g);
erase(f); rename(g,'D:\in.txt');
end.

uses crt;
var  f,g: text;
     s,sl,smax: string;
     i,dmax,ks: integer;
begin
assign(f,'D:\in.txt');
assign(g,'D:\out.txt');
reset(f); rewrite(g);
while not (eof(f)) do
      begin
      inc(ks);
      readln(f,s);
      s:=s+' '; sl:='';dmax:=0;
      for i:=1 to length(s) do
      if s[i]<>' ' then sl:=sl+s[i] else
         begin
         if length(sl)>dmax then
            begin
            dmax:=length(sl);
            smax:=sl;
            end;
         sl:='';
         end;
      s:=s+smax;
      writeln(g,s);
      end;
close(f); close(g);
end.