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

[Katya]

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

[мисс_граффити]

program text_file;
uses crt;
var f: text;
max: integer;
s:string;
begin
max:=0;
assign(f,'c:\fil.txt');
reset(f);
while not eof(f) do
  begin
  readln(f,s);
  if length(s)>max then
    begin
    clrscr;
    max:=length(s);
    end;
  if max=length(s) then
    writeln(s);
  end;
readln;
close(f);
end. 

хотя, пожалуй, трактовка задания получилась весьма вольной - распечатываются не только нужные строки.