Дана строка, состоящая из символов и цифр. Повторить символ, предшествующий цифре n - раз, где n -значение цифры (программа Паскаль)

Question

Дана строка, состоящая из символов и цифр. Повторить символ, предшествующий цифре n - раз, где n -значение цифры

Answer 1

var s:string;
    i,j:integer;
begin
writeln('Введите строку из символов и цифр');
readln(s);
for i:=length(s)downto 2 do
if not(s[i-1] in ['0'..'9']) then
 begin
  if s[i] in ['1'..'9'] then
  for j:=1 to strtoint(s[i]) do //повторяем еще n раз
  insert(s[i-1],s,i);
 end;
write(s)
end.