Составить процедуру сжатия исходной последовательности, состоящую из нескольких вхождений одного и того же символа, заминяется на текст x(k), где х - символ к - число вхождений символа х в подстроку исходной последовательности.
Ну для кого поиск сделан? Что, этой задачи недостаточно?
http://forum.pascal.net.ru/index.php?s=&showtopic=3476&view=findpost&p=31165