С клавиатуры вводится строка, состоящая из предложений на русском языке. Каждое предложение заканчивается либо точкой, либо вопросительным знаком, либо восклицательным. Слова отделены друг от друга одним пробелом, в соответствии с правилами русского языка. Исправить строку таким образом, чтобы каждое предложение начиналось с заглавной буквы, а остальные буквы были строчными. Вывести полученную строку на экран.

var s:string; i:integer;beginreadln(s);s[1]:=Upcase(s[1]);for i:=2 to length(s) do s[i]:=lowcase(s[i]);for i:=1 to length(s)-2 doif (s[i] in ['.','?','!'])and(s[i+1]=' ') then s[i+2]:=Upcase(s[i+2]);writeln(s);end.Пример:слОва отдЕЛены друг от друга ОДНИМ пробелом. испрАвить стрОкУ? вывести полУЧЕнную стрОКу на экран!Слова отделены друг от друга одним пробелом. Исправить строку? Вывести полученную строку на экран!