Удалить из строки S все группы длиной n подряд стоящих одинаковых символов - Free Pascal

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

Не получается убрать все символы, которые идут подряд. Один символ всегда остается... Нужно как-то через "delete", но я через него не знаю как. Помогите пожалуйста. Дана строка S и дано натуральное n. Удалить из строки S все группы длиной n подряд стоящих одинаковых символов.

Решение задачи: «Удалить из строки S все группы длиной n подряд стоящих одинаковых символов»

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

  write('S=');readln(s);
  write('n=');readln(n);
  with TRegExpr.Create do
  try
    Expression:=Format('(.)\1{%d,%d}', [n-1, n-1]);
    s:=Replace(s,'',true);
  finally
    Free;
  end;
  writeln(s);

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

Ввод строки S и числа n с помощью функций readln
Создание объекта TRegExpr
Формирование регулярного выражения (Expression) с помощью функции Format
Замена всех групп символов длиной n подряд стоящих одинаковых символов на пустую строку с помощью функции Replace
Вывод результата на экран с помощью функции writeln