Встроке символов ,слова разделить пробелом ,если в ней встречается слово "воронеж" то заменить маленькую в на большую в

var s:string; i:integer;

begin

read(s);

for i:=1 to length(s);

if s[i]='в' and s[i+1]='о' and s[i+2]='р'  and s[i+3]='о' and s[i+4]='н' and s[i+5]='е' and s[i+6]='ж' then s[i]:='В';

writeln(s);

end.