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

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.