Паскаль. тема-строковые процедуры.

задание: в исходном тексте приписать к каждой цифре ноль.

var s: string;

i: integer;

begin

write ('строка: ') ; readln (s) ;

i:=1;

repeat

if s[i] in ['0' ... '9'] then

begin

i:=i+1;

insert ('0', s, i) ;

end;

i:=i+1;

until i>length (s) ;

writeln ('новая строка: ', s) ;

end.

ввод - вывод

строка: в корзине лежали 18 яблок и 15 апельсин

новая строка: в корзине лежали 1080 яблок и 1050 апельсин