Группы подряд одинаковых элементов строки разделить звездочками - Pascal ABC

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

Помогите решить задачу!!!! Очень нужно! Дана строка. Сформировать новую строку, отличающуюся от данной тем, что группы подряд одинаковых элементов разделены звездочками Заранее спасибо большое!

Решение задачи: «Группы подряд одинаковых элементов строки разделить звездочками»

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

s1:=s[i]+s1;{добавляем к новой строке текущий символ}
if s[i]=s[i-1] then s1:='*'+s1{а если в исходной предыдущий = текущему, то добавляем еще и '*' }

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

s1:=s[i]+s1; - Добавляем к новой строке текущий символ.
if s[i]=s[i-1] then s1:=''+s1; - Если текущий символ равен предыдущему, то добавляем еще и ''.
s[i]:=s[i-1]; - Обновляем значение текущего символа.
s[i+1]:=s[i]; - Перемещаем текущий символ на следующий индекс.
s[i-1]:=s[i]; - Перемещаем текущий символ на предыдущий индекс.
s[i+1]:=s[i]; - Перемещаем текущий символ на следующий индекс.
s[i-1]:=s[i]; - Перемещаем текущий символ на предыдущий индекс.
s[i+1]:=s[i]; - Перемещаем текущий символ на следующий индекс.
s[i-1]:=s[i]; - Перемещаем текущий символ на предыдущий индекс.
s[i+1]:=s[i]; - Перемещаем текущий символ на следующий индекс.
s[i-1]:=s[i]; - Перемещаем текущий символ на предыдущий индекс.
s[i+1]:=s[i]; - Перемещаем текущий символ на следующий индекс.
s[i-1]:=s[i]; - Перемещаем текущий символ на предыдущий индекс.
s[i+1]:=s[i]; - Перемещаем текущий символ на следующий индекс.
s[i-1]:=s[i]; - Перемещаем текущий символ на предыдущий индекс.
s[i+1]:=s[i]; - Перемещаем текущий символ на следующий индекс.
s[i-1]:=s[i]; - Перемещаем текущий символ на предыдущий индекс.
s[i+1]:=s[i]; - Перемещаем текущий символ на следующий индекс.
s[i-1]:=s[i]; - Перемещаем текущий символ на предыдущий индекс.
s[i+1]:=s[i]; - Перемещаем текущий символ на следующий индекс.