Задача про строки и повторяющиеся символы., Прошу помочь решить задачу. Опции

[Гость_Роман]

Текст задачи:
Задан текст,в котором нет вхождения символов "(" и ")".Выполниеть его сжатие то есть заменить всякую максимальную подпоследовательность,составленную из более чем трех вхождений одного и того же символа,на (k)s,где s-повторяемый символ,а k>3 - количество его повторений.
Заранее благодарен.Я искал но вроде не нашел такую задачку. :p2:

[volvo]

Гость_Роман
Эта программа производит сжатие строки по описанному алгоритму.

Код

const
 s: string =
    'assssssssssssssssssssssrrrfigngnnnnnnn ytytytyyyyy fffff ijjjjjj';

function change_more(s: string;
        var i: byte): string;
 var
   j, count: byte;
   st: string;
 begin
   j := succ(i);
   while (s[j] = s[i]) and
         (j <= length(s)) do inc(j);
   count := j - i;
   if count > 3 then
     begin
       str(count, st);
       s := copy(s, 1, i) + '(' + st + ')' + copy(s, j, 255);
       inc(i, succ(2 + length(st)))
     end
   else i := j;
   change_more := s
 end;

var
 i: byte;
 test: string;
begin
 test := s; i := 1;
 while i <= length(test) do
   test := change_more(test, i);
 writeln(test)
end.