В тексте проверить все ли предложения начинаются с заглавной буквы, если есть предложения которые начинаются с маленькой буквы надо заменить их Заглавными буквами — Pascal(Паскаль)

uses crt;
var
s : string;
i,len : integer;
 
begin
clrscr;
readln(s);
len := length(s);
i:=1;
s[i] := upcase(s[i]);
while i<=len do
 begin
 if (s[i]='.') then
  begin
  inc(i);
  while (s[i]=' ') and (i<=len) do inc(i);
  s[i] := upcase(s[i]);
  end;
 
 inc(i);
 end;
writeln(s);
readln;
end.