В строке символов, слова разделить пробелом, если в ней встречается слово…

var s: string; i: integer; beginread (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.