Определить, сколько строк файла имеют количество слов, длина которых больше

uses crt;
const filename1='in.txt';filename2='out.txt';
var ft1,ft2:text;sim:char;
 
procedure output(var f:text;name:string);
begin
 reset(f);
 writeln('Iz faylu ',name);
 while not eof(f) do
  begin
   while not eoln(f) do
    begin
     read(f,sim);
     write(sim);
    end;
   readln(f);
   writeln;
  end;
  writeln;
 close(f);
end;
 
procedure work(var f1,f2:text);
var k,ks:integer;slovo:string;p:boolean;
begin
 reset(f1);rewrite(f2);
 writeln('Vvedite k');read(k);
 slovo:='';
 ks:=0;
 while not eof(f1) do
  begin
   p:=false;
   while not eoln(f1) do
    begin
     read(f1,sim);
     if sim<>' ' then slovo:=slovo+sim;
     if (sim=' ')or eoln(f1) then
      begin
       if length(slovo)>k then
        begin
         write(f2,slovo,' ');
         p:=true;
        end;
        slovo:='';
      end;
    end;
   if p then begin inc(ks);writeln(f2); end;
   readln(f1);   
  end;
 writeln;
 writeln('Strok so slovami bol''she ',k,' simvolov - ',ks);
 close(f1);
 close(f2);
end;
 
begin
 clrscr;
 assign(ft1,filename1);
 assign(ft2,filename2);
 output(ft1,filename1);
 work(ft1,ft2);
 output(ft2,filename2);
 readkey;
end.