Тут же цикл, он повторяет дейтсвия...
Посчитай сам, каждый проход даёт +2 к S.
1. Удалять файл, точно не выяснив, обязательно ли это следует делать.
2. Давай файлу имя, которое не поясняет его содержание.
3. Сохранять файл в той папку, где его потом будет трудно найти.
4. Удалять или перемещать файлы, находящие в папках прикладных программ -- это может привести к тому, что программы перестанут работать.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
var c:=s.ToWords.Where(t->t.Length>1).SelectMany(w->w.Pairwise)
.Select(t->t[0]+t[1]).GroupBy(t->t).Select(t->(t.Key,t.Count))
.OrderByDescending(t->t[1]).ThenByDescending(t->t[0]).First[0];
Writeln('Чаще других встречается цепочка "',c,'"')
end.
<u>Пример</u>
TWAS BRILLIG AND THE SLITHY TOVES DID GYRE AND GIMBLE IN THE WABE ALL MIMSY WERE THE BOROGOVES AND THE MOME RATHS OUTGRABE
Чаще других встречается цепочка "TH"
<u>Замечание:</u> ограничение на длину строки увеличено до 2 млн. символов.