Param43 - Описать функцию DecompressStr(S) - восстанавливающую сжатую строку

[illuminato]

Помогите решить задачу на Pascal
Описать функцию DecompressStr(S) строкового типа, восстанавливающую строку,
сжатую функцией CompressStr (см. задание Param42). Параметр S содержит сжатую строку;
восстановленная строка является возвращаемым значением функции. С помощью функции
DecompressStr восстановить пять данных сжатых строк.

пример: hgd{8} - преобразуется hgdddddddd
то есть d{8}=dddddddd

program decompress; 
uses crt; 

var 
s : string; 

function DeCompressStr(s : string) : string; 
var 
i:byte; 
begin 
{---------} 
Здесь код 
{---------} 
write(S); 
end; 

begin 
clrscr; 
readln(s); 
s := decompressstr(s); 
writeln(s); 
readln; 
end.

[Izobara]

program decompress;
//uses crt;

var
s : string;

function DeCompressStr(s : string) : string;
var
i,j,code:integer;
begin
val(s[length(s)-1],j,code);
delete(s,pos('{', s),3);
for i:=1 to j do
s:=s+s[length(s)];
write(s);
end;

begin
//clrscr;
readln(s);
s := decompressstr(s);
//writeln(s);
readln;
end.

Это если в скобках число меньше 10. Иначе там посложнее будет.