С клавиатуры задаётся строка. Требуется преобразовать строку так, чтобы цифры были продублированы.

program zadacha_9;

const

z : set of char = ['0'..'9'];

var

a : string[100];

b : string;

i : integer;

begin

writeln('Введите строку.');

readln(a);

b := a;

i := 1;

while i <= length(b) do

begin

if b[i] in z then

begin

a := b[i];

insert(a, b, i);

inc(i);

end;

inc(i);

end;

writeln('Изменённая строка = ', b);

readln;

end.

(Скачать решение.)