Выведите на экран строку файла с наибольшим количеством слов

Var f1,f2:text;
 
     i,n: integer;
 
     S: string;
 
 Begin
 
     Assign(f1, 'f1.txt'); 
     Rewrite(f1);  
 
     Readln(n); 
 
     for i:=1 to n do
 
     begin
 
         readln(s); 
 
         writeln(f1,s); 
 
     end;
 
     close(f1); 
     Reset(f1); 
 
     Assign(f2, 'f2.txt'); 
 
     Rewrite(f2); 
     While not eof(f1) do
 
     Begin
 
         Readln(f1,s);
 
         If (s[1]='program') then
 
         Writeln(f2,s); 
 
     End;
     Close(f1,f2); 
 
     Writeln;
 
     Writeln('Второй файл содержит строки:');
 
     Reset(f2); 
 
     While not eof(f2) do 
 
     Begin
 
         Readln(f2,s);
 
         Writeln(s); 
 
     End;
 End.

program pr2;
uses crt;
var
  path,str:string;//файл лежит c:/
 
 
procedure max_str(var str:string;path:string);
var
  f:text;
  max:integer;
  st:string;
begin
max:=-1;
  try
  assign(f,path);
  reset(f);
  except
    on System.IO.IOException do writeln('Ошибка открытия файла');
  end;
  while not eof(f) do
    begin
      readln(f,st);
      if length(st)>max then 
                            begin
                                max:=length(st);
                                str:=st;
                            end;
    end;
    close(f);
end;
    
  
begin //основная программа
try
write('Расположение файла');
readln(path);
path:=path+'/f.txt';
max_str(str,path);
writeln('самай длинная строка: ',str);
except
  on System.IO.IOException do writeln('не найдена директория, повторите ввод');
end;
 
 
end.

var f:text;
    s,s1:string;
    max:byte;
begin
assign(f,'text.txt');
reset(f);
max:=0;
while not eof(f) do
  begin
    readln(f,s);
    if length(s)> max then
      begin
        max:=length(s);
        s1:=s;
      end;
  end;
writeln('Самая длинная строка:');
writeln(s1);
readln
end.