Дан текст, состоящий из предложений, разделяемых точками. Напишите программу, производящую следующее форматирование: после

uses crt;
function Up(c:char):char;{функция преобразования строчных букв в прописные}
begin
if c in ['a'..'z']then c:=UpCase(c){для латинских стандартная функция}
else if c in ['а'..'п'] then c:=chr(ord(c)-32){русские а-п}
else if c in ['р'..'я'] then c:=chr(ord(c)-80){русские р-я}
else if c='ё' then c:='Ё';
Up:=c;
end;
var s:string;
    i,j:byte;
begin
clrscr;
writeln('Введите текст из нескольких предложений, разделенных точками:');
readln(s);
s[1]:=Up(s[1]);{первая буква}
for i:=length(s)downto 1 do{идем с конца строки}
if s[i]='.' then{нашли точку}
 begin
  if s[i+1]<>' 'then{если после нее не пробел}
   begin
    s[i+1]:=Up(s[i+1]);{делаем букву прописной}
    insert(' ',s,i+1);{вставляем перед ней пробел}
   end
  else{если уже есть пробел}
   for j:=i+1 to length(s)do{идем по строке вперед, ищем где пробелы кончились
(их может быть несколько)}
   if s[j]<>' 'then{нашли первый не пробел}
    begin
     s[j]:=Up(s[j]);{делаем прописной}
     break;{выходим из цикла}
    end;
 end;
write(s);
readln
end.