Найти в текстовом файле длину максимальной строки и все такие строки записать в другой- Pascal(Паскаль)

var
  s: string;
  f,g: text;
  m: word;
 
begin
  Assign(f,'in.txt');
  {первый проход, поиск максимальной длины}
  Reset(f);
  m:= 0;
  while not EoF(f) do begin
    readln(f,s);
    if Length(s)>m then m:=Length(s)
  end;
  Assign(g,'out.txt');
  Rewrite(g);
  {второй проход, запись выходного файла}
  Reset(f);
  while not EoF(f) do begin
    readln(s);
    if Length(s)=m then writeln(g,s)
  end;
  Close(g);
  Close(f)
end.