ребят помогите с с++

Question

Написать программу, в которой вначале по запросу вводится текстовая строка из латинских букв и вспомогательных символов. Требуется заменить в ней все вхождения малой буквы “а” на 1, малой буквы “b” на 22, “c” – на 333. Подсчитать в новой строке число цифр. Итоговую строку и число цифр выдать на экран

Жанна Хлудова · Accepted Answer

var s:string; i,k:integer; 
begin 
readln(s); k:=0; i:=0; 
repeat 
inc(i); 
case s[ i] of 
'a': begin delete(s,i,1); insert('1',s,i); k:=k+1 end; 
'b': begin delete(s,i,1); insert('22',s,i); k:=k+2 end; 
'c': begin delete(s,i,1); insert('333',s,i); k:=k+3 end; 
end; 
until i=length(s); 
writeln(s); writeln('n=',k); readln 
end.