function encode:string;
var i,j:integer;
    newS:string;
begin
  i:=1;
  while i <= length do
  begin
    j:=i;
    while s = s do inc;
    if j-i = 0 then
    begin
      newS := newS + s;
      inc;
    end else
    begin
      newS := newS + inttostr + s;
      delete;
    end;
  end;
  result:= newS;
end;
 
function decode:string;
var i,j,c:integer;
    newS:string;
    dp : string;
begin
i:=1;
while i <= length do
  begin
    j:=i;
    while s in  do inc;
    if j-i > 0 then
    begin
      dp := copy;
      for c:=1 to strtoint do newS := newS + s;
      delete;
    end else
    begin
      newS := newS + s;
      inc;
    end;
  end;
  result:= newS;
 
end;