Pascal. Задача 8-1

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

Скачайте тестовый файл и сохраните у себя на компьютере для использования при решении.

Решение

var
  f : text;
  s :string;
  m : integer;
begin
  Assign(f, 'C:\PABCWork.NET\test1.txt');
  Reset(f);
  m := 0;
  while not Eof(f) do begin
    Readln(f, s);
    if Length(s) > m then m := Length(s);
  end;
  Close(f);
  Reset(f);
  while not Eof(f) do begin
    Readln(f, s);
    if Length(s) = m then Writeln(s);
  end;
  Close(f);
end.

◄▲►