Найти самую длинную повторяющуюся фразу в нескольких текстах. Ищу функцию или алгоритм

(0) вот так можно, как то делал:
&НаКлиенте
Функция РазложитьТекстВМассив(мТекст)
    Результат = Новый СписокЗначений;

    ДлинаТекста = СтрДлина(СокрЛП(мТекст));
    ПозицияКонец = 0;

    перемТекст = мТекст;

    Пока ПозицияКонец <= ДлинаТекста Цикл

        ПозицияКонец = НайтиБлижайшуюПозициюСимвола(перемТекст, ПолучитьСимволыКонцаПредложения());

        Если ПозицияКонец = 0 Тогда
            Прервать;
        КонецЕсли;

        Подстрока = Сред(перемТекст, 0, ПозицияКонец);

        перемТекст = СокрЛП(Сред(перемТекст, ПозицияКонец + 1));

        Результат.Добавить(СтрДлина(Подстрока), Подстрока);

    КонецЦикла;

    Результат.СортироватьПоЗначению(НаправлениеСортировки.Убыв);

    Возврат Результат;

КонецФункции

&НаКлиенте
Функция НайтиБлижайшуюПозициюСимвола(сТекст, сСимвол)
    спПозиций = Новый СписокЗначений;

    Для каждого мСмв Из сСимвол Цикл
        ЧислоПозиции = СтрНайти(сТекст, мСмв);
        Если ЧислоПозиции > 0 Тогда
            спПозиций.Добавить(ЧислоПозиции);
        КонецЕсли;
    КонецЦикла;

    спПозиций.СортироватьПоЗначению(НаправлениеСортировки.Возр);

    Если спПозиций.Количество() > 0 Тогда
         Возврат (спПозиций[0].Значение);
    КонецЕсли;

    Возврат 0;

КонецФункции

&НаКлиенте
Функция ПолучитьСимволыКонцаПредложения()
    мСимволы = Новый Массив;
    мСимволы.Добавить(". ");
    мСимволы.Добавить("! ");
    мСимволы.Добавить("? ");
    мСимволы.Добавить("... ");
    Возврат мСимволы;
КонецФункции

&НаКлиенте
Процедура кмСравнить(Команда)
    мТекст1 = "";
    мТекст2 = мТекст1;

    мРезультат1 = РазложитьТекстВМассив(мТекст1);
    мРезультат2 = РазложитьТекстВМассив(мТекст2);

    Если мРезультат1.Количество() = 0
        Или мРезультат2.Количество() = 0 Тогда
        Сообщить("Ничего не найдено.");
        Возврат;
    КонецЕсли;

    Если мРезультат2.НайтиПоЗначению(мРезультат1[0].Значение) <> Неопределено Тогда
        мРезультат = (мРезультат2.НайтиПоЗначению(мРезультат1[0].Значение).Представление);
    КонецЕсли;

КонецПроцедуры