help bài xâu này ạ , ngôn ngữ pascal , em cảm ơn ạ

uses crt;
var  d,s:string;
i:longint;

function int(s:string):longint;
begin
val(s,int);
end;

procedure print(d:longint;s:char);
var i:longint;
begin
for i:=1 to d do
 write(s);
end;

begin
clrscr;
readln(s);
i:=1;
while i<=length(s) do
begin
 d:='';
 while s[i] in ['0'..'9'] do
 begin
  d:=d+s[i];
  i:=i+1;
 end;
 if d='' then d:='1'; 
 print(int(d),s[i]);
 i:=i+1;
end;
readln
end.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

const number = ['0'..'9'];
var s, kq, tam : string;
    n, i, tg : longint ;
begin
    kq := '';
    readln(s);
    n := length(s); tg := 0;
    for i := 1 to n do 
         begin
        tam := '';
        if s[i] in number then 
             begin
            val(s[i],tg);
            tam := stringofchar(s[i+1],tg);
            kq := kq + tam ;
             end ;
        if not(s[i] in number) and not(s[i+1] in number ) then kq := kq + s[i+1];
         end ;
    write(kq);
end .