begin
var fn := ReadlnString('Введите имя файла:');
if not FileExists(fn) then
begin
Print('Файл не найден');
exit
end;
var a := ReadAllText(fn).ToWords; // массив слов
Println('Количество слов в файле:', a.Length);
var lmax := a.Select(w -> w.Length).Max;
Println('Перечень слов с максимальной длиной');
a.Where(w -> w.Length = lmax).Println
end.
Во втором вложении дается тестовый файл Pushkin2.txt
