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

program zz1;
var s:string;
i,d,k,g,c:integer;
begin
read(s); //вводим исходную строчку
d:=length(s); //определяем длину исходной строчки
for i:=1 to d do //перебираем все буквы от первой до заключительной
if copy(s,i,5)=Киров then begin delete(s,i,5);insert(Вятка,s,i);end; //проверяем, если скопированные 5 букв равны "Киров", то устраняем эти 5 букв, на это же место вставляем слово "Вятка"
writeln(полученная строчка - ,s); //выводим ответ
end.