как из 102 сделать 110222, то есть повторить число столько же раз в паскале?

program N98158624;

procedure DupDigit(n: int64);
var
i, d: byte;
begin
if n > 0 then
begin
DupDigit(n div 10);
d := n mod 10;
for i := 1 to d + 1 do
write(d)
end
end;

var
n: int64;
begin
write('Введите число: ');
readln(n);
DupDigit(n);
readln
end.