Помогите пожайлуста решить задание с текстовым файлом

[MegaHandsome]

1)Дан текстовый файл f.Преобразовать строки файла f по правилу - Выбрать строки,длина которых отличается от самой длинной строки не более чем на 5 символов.Преобразованные строки переписать в файл g.
Долго искал в интернете,но ничего похожего не нашёл...=/

[dr.Jekill]

Код: Выделить всё

var f,g:textfile;
    tmp:String;
    MaxLength:byte;
    Count:integer;
begin 
 assign(f,'Исходный файл.txt');
 reset(f);
 Count:=0;
 MaxLength:=0;
 while not eof(f) do
  begin
   inc(Count);
   readln(f,tmp);
   if (Count=1) or (Length(tmp)>MaxLength) then MaxLength:=Length(tmp);  
  end;
 assign(g,'Rez.txt');
 rewrite(g);
 reset(f);
 while not eof(f) do
  begin
   readln(f,tmp);
   if abs(Length(tmp)-MaxLength)<=5 then
   writeln(g,tmp);
  end;
 closefile(f);
 closefile(g);
end.

[MegaHandsome]

Большое спасибо))

[dr.Jekill]

Если Вам помогли, необходимо щелкнуть на шестиконечную звездочку (Reputation) в левом нижнем углу сообщения и выбрать "Одобряю"->"Добавить отзыв"

[MegaHandsome]

А у меня нету звёздочки под вашим сообщением...( Есть под моим,но под вашим почему-то нету(