Написать программку в паскале, определяющую самую длинноватую строчку в текстовом документе,

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadAllLines('foos.txt');
  var i:=a.Select(l-gt;l.Length).ToArray.IndexMax;
  a[i]:='*'*a[i].Length;
  WriteAllLines('foos1.txt',a);
  ReadAllText('foos1.txt').Println
end.

Входной файл foos.txt должен находиться в одной папке с программой. Результат вмещается в файл foos1.txt с тем ,чтоб не менять входной файл - это дозволяет запустить задачку несколько раз. Если итог нужно поместить в тот же файл, поменяйте foos1.txt на foos.txt.

Пример
Написать программку в паскале, определяющую самую
**************************************************
знаки этой строки на звёздочки.

Входной файл дан во вложении.