Pascal. Задача 8-2

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

Используйте при решении файл из первой задачи.

Решение

var
  f : text;
  s :string;
  i, 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);
  for i := 1 to m do begin
    Reset(f);
    while not Eof(f) do begin
      Readln(f, s);
      if Length(s) = i then Writeln(s);
    end;
    Close(f);
  end;
end.

◄▲►