Ввести строку и после каждого символа "q" ставить "**"

[karamzin]

Ввести строку и после каждого символа "q" ставить "**"

[lamer_1]

var s:string;
    i:integer;
begin
write('Введите строку: ');
readln(s); i:=0;
while i<=length(s) do
begin
  inc(i);
  if s[i]='q' then insert('**',s,i+1);
end;
writeln('Результат: ',s);
end.

[Serge_Bliznykov]

как уже показал TinMan в аналогичной теме TC, подобные задачи удобнее (проще и надёжнее) решать в цикле от конца строки к началу:

 for i:=Length(s) downto 1 do
     if s[i]='q' then Insert('**', s, i+1);