Вывести самую длинную строку файла

uses crt;
type fil=text;
var f1:fil;
a,b,c:string;
i,w,n,y:integer;
procedure wwod;
begin
assign(f1,'t1.dat');
rewrite(f1);
writeln('Введите кол-во строк в файле:');
readln(y);
for i:= 1 to y do
    begin
    writeln('Введите ',i,' строку');  {}
    readln(a);
    writeln(f1,a);
    end;
close(f1);
end;
procedure prosm;
begin
assign(f1,'t1.dat');
reset(f1);
writeln('Содержание текстового файла:');
while not eof(f1) do
      begin
      a:='';
      readln(f1,a);
      writeln(a)
      end;
close(f1);
end;
procedure naxod;
var max:string; i,i1:integer;
begin
assign(f1,'t1.dat');
reset(f1);
max:=''; i:=1;i1:=0;
while not eof(f1) do
      begin
      a:='';
      readln(f1,a);
      if length(a)> length(max) then begin
                           max:=a;
                           i1:=i;
                                 end;
     inc(i);
     end;
writeln('Самая длинная строка: ',max,' (',i1,')');
reset(f1);
i:=1;
while not eof(f1) do
      begin
      a:='';
      readln(f1,a);
      if (length(max)=length(a)) and (i<>i1)
         then  writeln('Еше одна Самая длинная строка: ',max,' (',i,')');
      inc(i);
      end;
close(f1);{}
end;
begin
w:=0;      {обнуляем переменную для выбора меню}
while w<>4 do begin   {пока не равно 4 }
      writeln('           Меню программы');
      writeln('1-Создание текстового файла');
      writeln('2-Просмотр текстового файла');
      writeln('3-Нахождение длинного строки');
      writeln('4-Выход из программы');
      write('             Ваш выбор -> ');
      readln(w);
      case w of
           1:wwod;
           2:prosm;
           3:naxod;
           end;
      writeln
      end;
end.