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

ReadAllText('foos1.txt').Println - контрольное чтение результат работы программы.

*результата

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadAllLines('foos.txt');  var i:=a.Select(l->l.Length).ToArray.IndexMax;  a[i]:='*'*a[i].Length;  WriteAllLines('foos1.txt',a);  ReadAllText('foos1.txt').Printlnend.Входной файл foos.txt должен находиться в одной папке с программой. Результат помещается в файл foos1.txt с тем ,чтобы не менять входной файл - это позволяет запустить задачу несколько раз. Если результат нужно поместить в тот же файл, замените foos1.txt на foos.txt.ПримерНаписать программу в паскале, определяющую самую**************************************************символы этой строки на звёздочки.Входной файл дан во вложении.