Задача турбо паскаль

Задана строка символов , содержащая только буквы . Составить пpогpамму "сжатия" исходной стpоки символов : каждая подстpока , состоящая из нескольких вхождений одного и того же символа, заменяется на текст x(k) , где x - символ , а k – число вхождений символа в исходную стpоку .
Например, задана строка : ‘ Я учусь программировать на языке Турбо - Паскаль ’
Результат работы программы : ‘ Я учусь програм(2)ировать на языке Турбо - Паскаль ’
Предоставить файл программы и отчета (см. вложение "Требования к отчету")