Delphi заготовки

{

Напишите программу для решения задачи: «Заменить в
 строке все целые числа
соответствующим повторением следующего за ними 
символа (например "abc5xacb15y" - " abcxxxxxacbyyyyyyyyyyyyyyy ")».

}


 function ReplaceAllInt(S:string):string;
 var m,l,x,y:integer;
 sint,s2:string;
 begin
 s2:='';
 l:=length(s);
 x:=1;
 while x<l do begin
 if s[x] in ['0'..'9'] then begin
 sint:=s[x];
 y:=x;
 for y:=x+1 to l do
 if s[y] in ['0'..'9'] then sint:=sint+s[y] else break;

 for m:=1 to strtoint(sint) do s2:=s2+s[y];

 end else s2:=s2+s[x];
 ReplaceAllInt:=s2;
 x:=x+1;
 end;
 
 end;