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

[Katya]

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

[klem4]

uses crt;

var
  f: Text;
  s, temp: String;
  max: integer;

begin
  clrscr;
  assign(f, 'text.txt');
  reset(f);
  temp := '';
  max := 0;
  while not(eof(f)) do begin
    readln(f, s);
    if length(s) > max then begin
      temp := '';
      max := Length(s);
    end;
    if length(s) = max then temp := temp + s + #10#13;
  end;
  writeln(temp);
  readln;
end. 

хотя ограничение 255 ....((((( Но можно юзать PCHAR

не, это все не то конечно ...

[Malice]

Не понял, в чем фишка, решение напрашивается очевидное:

uses crt;
var f:text;
var m:byte;
procedure q(var m:byte);
var s:string;
begin
if not eof (f) then begin
readln(f,s);
if m<length(s) then m:=length(s); q(m);
end;
if eof (f) and (length(s)=m) then writeln (s);
end;

begin
clrscr;
assign (f,'text.txt'); reset (f);
m:=0;
q(m);
close (f);
end.

Конечно, это не до конца правильно (порядок я имею ввиду), чтобы это исправить придется так на мостик встать, что я и не сображу что-то пока