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

Question

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

Answer 1

// 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