Введите строку. Преобразуйте строку таким образом, чтобы после каждой цифры "2" стояли три символа "!" Выведите преобразованную строку на экран. Pascal

Var s: string;

i: integer;

begin

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

i:=1;

while i<=length (s) do

begin

if s[i]='2' then

begin

s:=copy (s, 1, i-1) + '!'+

copy (s, i+1, length (s) - i+3);

i:=i+3;

end;

i:=i+1;

end;

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

end.