Запись слов максимальной длины из одного файла в другой

program sestnadst;          
var
prvni,druhy:string;
slovo:string;
t1:text;
t2:text;
ps,ch:char;
delka,maxdelka:integer;
 
begin
writeln('Napisite name pervogo fajla');
readln(prvni);
writeln('Napisite name vtorogo fajla');
readln(druhy);
 
assign(t1,prvni);
reset(t1);
assign(t2,druhy);
rewrite(t2);
append(t2);
 
maxdelka:=0;
while not seekeof(t1) do
      begin
      while not eoln(t1) do
            begin
            read(t1,ch);
 
            if(ch=' ')and(ps<>' ')  then
                    begin
 
                    if delka>maxdelka then maxdelka:=delka;
                    delete(slovo,1,length(slovo));
                    delka:=0;
 
                    end;
 
            if (ch<>' ') then begin slovo:=slovo+ch; inc(delka); end;
            ps:=ch;
            end;
      end;
 
close(t1);
reset(t1);
while not eof(t1) do
            begin
            read(t1,ch);
            if(ch=' ')and(ps<>' ')  then
                    begin
                    if length(slovo)=maxdelka then writeln(t2,slovo);
                    delete(slovo,1,length(slovo));
                    end;
 
            if (ch<>' ') then begin slovo:=slovo+ch; end;
            ps:=ch;
 
            end;
 
close(t1);
close(t2);
end.

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