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

program zz1;

var s:string; / / задаем переменную строкового типа

i:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

readln (s); / / вводим с клавиатуры заданную строку

for i:=1 to length (s) do / / организуем перебор букв во всей заданной строке от первой до последней

if copy (s, i, 7) = 'воронеж' / / проверяем, если вхождение есть слова воронеж, то

then s[i]:='В'; / / заменяем маленькую букву на большую

write (s); / / выводим ответ

end.