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