Задача со строкой

[XaMeJleoH]

Дана строка символов.

Преобразовать исходную строку следующим образом. Каждая подстрока, состоящая из нескольких вхождений одного и того же символа, меняется на текст K(X), где Х - символ, а K - строка, являющаяся записью числа вхождений символа Х в исходную последовательность.

P.s. Заранее благодарен.

[Min]

var s,s2:string;

procedure replace(n,count:byte);
var ch:char;
    sp:string;
begin
 ch:=s[n];
 str(count,sp);
 s2:=s2+sp+'('+ch+')';
end;

var c:char;
    b:boolean;
    pred,i:byte;
begin
 readln(s);
 pred:=1;
 c:=s[1];
 b:=false;
 for i:=2 to length(s) do
   if s[i]=c then
    b:=true
   else
    begin
     if b then
      replace(pred,i-pred)
     else
      s2:=s2+c;
     pred:=i;
     c:=s[i];
     b:=false;
    end;
 if b then
  replace(pred,length(s)+1-pred)
 else
  s2:=s2+c;
 writeln(s2);
 readln;
end.

[XaMeJleoH]

Min, огромное спасибо.