Работа со строками Pascal

[decantnik]

Дана строка вида "dfs{5}feg". Получить "dfssssssfeg". Т.е. в скобках указано сколько повторяющийся символов идет.

Я делал так, находил позицию { потом с нее в строку добавлял числа до символа } потом конвертировал в целое с помощью val. Но проблема в том, что если число было двухзначное то в строку добавлялся только последний символ.. Вот.

Может подкинет кто идею решения?

[Летучий_СкилетиК]

uses crt;
var a:string;
   y,r,i,p,j:integer;
   g,f:boolean;
   m : set of char;
   c: string;
begin
m := ['0'..'9'];
read(a);
i:=1;
g:=false;
while ( (not g) and (i<=length(a)) )do
begin
     if a[i] = '{' then
     begin
          inc(i);
          f:=false;
          p:=i;
          while ((a[i] in m) and (i<=length(a)))  do
          begin
               inc(i);
               f:=true;
          end;
     if (f) and (a[i] = '}') then g:=true;
     end else
         inc(i);
end;
c := '';
for j:=p to i do
    c:=c+a[j];
val(c,y,r);
delete(a,p-1,(i-p)+2);
write(copy(a,1,p-2));
delete(a,1,p-2);
for j:=1 to y do write(a[p-2]);
write(a);
 end.

в конце заместо

write(copy(a,1,p-2));
delete(a,1,p-2);
for j:=1 to y do write(a[p-2]);
write(a);

заместо этой красоты поставь insert()...

[GetMax]

Предлагаю свое решение задачи.

Var
  St,BufSt:String;
  i,j,k,p:Byte;
  BufChislo:Byte;
  Error:Integer;
  BufSimvol:Char;
begin
  Readln(St);
  For i:=1 to Length(St) do
  Begin
    j:=Pos('{',St);
    k:=Pos('}',St);
    If K > 0 then
    Begin
      If (j <> 0) and (j <> 1) then BufSimvol:=St[j-1];
      BufSt:='';
      For p:=j+1 to k-1 do
      Begin
        BufSt:=BufSt+St[p];
      End;
      Delete(St,Pos(BufSt,St),Length(BufSt));
      Delete(St,Pos('{',St),1);
      Delete(St,Pos('}',St),1);
      Val(BufSt,BufChislo,Error);
      For p:=1 to BufChislo do Insert(BufSimvol,St,j)
    End;
  End;
  Writeln(St);
  Readln
End.

Decantnik, выбирай любое и разбирайся

[decantnik]

спасибо всем