Программа на паскале
в текстовом файле записано 10 имен, по одному с новой строки . Вывести в другой тестовый файл самое длинное имя .

Единственное условие - входной файл не должен быть пустым.

// PascalABC.NET 3.2, сборка 1449 от 23.05.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadAllLines('input.txt');  var i:=a.Select(s->s.Length).ToArray.IndexMax;  WriteLines('output.txt',Seq(a[i]))end.Программе совершенно неважно, сколько и каких строк записано во входном файле input.txt