Введите строку. Преобразуйте строку таким образом, чтобы после каждой цифры "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.