Дана строка текста,знаков препинания в строке нет.заменить все вхождения "Киров" **...

Question

Дана строка текста,знаков препинания в строке нет.заменить все вхождения "Киров" на "Вятка"
На Паскале

Answer 1

Var
 s:string;
 i:integer;
begin
readln(s);
while pos('Киров',s)<>0 do
 begin
  i:=pos('Киров',s);
  delete(s,pos('Киров',s),5);
  insert('Вятка',s,i);
 end;
write(s);
end.