Описать  функцию CompressStr(S)  строкового 
типа,  выполняющую сжатие строки S
по следующему правилу: каждая подстрока строки S, состоящая из более чем
четырех одинаковых символов C, заменяется текстом вида «С{K}», где K —
количество символов C (предполагается, что строка S  не 
содержит  фигурных  скобок «{» и «}»). Например,  для 
строки S = «bbbccccce» функция вернет строку «bbbc{5}e». С помощью
функции CompressStr сжать пять данных строк

Помогите пожалуйста решить на паскале! Очень срочно надо!