Определение длины строки в текстовом файле Опции

[Katya]

Найти максимальную длину строки в текстовом файле и. распечатать все строки файла, имеющие такую длину.
Помогите, пожайлуста, решить задачу!!! Заранее благодарю!!!!

[Tan]

uses crt;
Const filename = 'MyFile.txt';
var   f : TEXT;
      S : string;
  max,a : integer;
begin
Clrscr;
assign (f,filename);
reset (f);
max:=0;
     while not eof(f) do
     begin
          readln (f,s);
          If Length(s) >= max then max:=Length(s);
      end;
writeln (max);
reset (f);
   while not eof(f) do
       begin
         readln (f,s);
         if Length(s) = max then writeln (S);
      end;
Close (f);
readkey;
end.