Процедура сжатия исходной строки

var
s:string;
procedure p(var s:string);
var i,k:integer;
x:char;
begin
k:=0;
for i:=1 to length(s) do begin
   x:=s[i];
   while s[i]=x do 
                   k:=k+1;
                   
                  
   delete(s,i-k,k-1);
   insert(')',s,i);
   insert('k',s,i);
   insert('(',s,i);
   end;end;
begin
readln(s);
p(s);
write(s);
readln;
end.

for i:=Length(s) downto 1 do

Var
  S : String;
 
Function IntToS(A : Longint) : String;
Var AA : String;
Begin
  Str(A,AA);
  IntToS:=AA;
End;
 
Procedure p(Var ss : String);
Var i,k : Integer;
    Ch  : Char;
Begin
  k:=Length(ss);
  For i:=Length(ss)-1 downto 1 do
    If ss[i]<>ss[k] then
      If k-i>1 then
      Begin
        Ch:=ss[k];
        Delete(ss,i+1,k-i);
        Insert(Ch+'('+IntToS(k-i)+')',ss,i+1);
        k:=i;
      End
       else k:=i;
   If k<>1 then
   Begin
     Ch:=ss[k];
     Delete(ss,1,k);
     Insert(Ch+'('+IntToS(k)+')',ss,1);
   End;
end;
 
Begin
  Readln(S);
  { S:='aabcdddddxyyyzz'; }
  p(S);
  Write(S);
  Readln;
End.