Подпрограмма: в строке символов заменить каждую из групп стоящих рядом точек многоточием - Free Pascal

Формулировка задачи:

Написать подпрограмму которая в строке символов заменяет каждую из групп стоящих рядом точек многоточием. Очень нужна помощь!

Решение задачи: «Подпрограмма: в строке символов заменить каждую из групп стоящих рядом точек многоточием»

Листинг программы

uses regexpr;
 
function f(const s : string) : string;
begin
  with TRegExpr.Create do
  try
    Expression := '\.{2,}';
    Result := Replace(s, '...', true);
  finally
    Free;
  end;
end;
 
// ... тут использование функции

Объяснение кода листинга программы

Создается новый экземпляр класса TRegExpr.
В конструкторе этого класса передается строка '\.{2,}' в качестве регулярного выражения.
Метод Replace вызывается с тремя аргументами:
- 's' (строка, в которой нужно выполнить замену).
- '...' (строка, на которую нужно заменить найденные совпадения).
- 'true' (флаг, указывающий, что замена должна быть выполнена глобально, то есть все совпадения должны быть заменены).
Результат замены сохраняется в переменной 'Result'.
После выполнения всех операций освобождается память, выделенная под экземпляр класса TRegExpr, с помощью метода Free.
Возвращается значение переменной 'Result' в качестве результата работы функции. Примечание: регулярное выражение '.{2,}' означает найти любую последовательность из двух или более точек подряд.