Задан текстовый файл с произвольным именем. а, сколько слов содержит этот файл. все слова разделены пробелами, не обязательно одиночными. найдите все слова максимальной длины. решать в pascalabc.net, полное решение, . желательно попроще, без лишних функций.
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