Подсчитать количество предложений и количество слов в предложении

program Project1; 
 
{$APPTYPE CONSOLE} 
 
uses 
SysUtils; 
 
var s:string; 
a,b,i:integer; 
begin 
writeln('Vvedite'); 
write(s); 
readln(s); 
a:=0; 
b:=1; 
for I := 0 to length(s) do 
if s[i]='.' then 
begin 
a:=a+1 ; 
end; 
if s[i]=' ' then 
begin 
b:=b+1 ; 
end; 
writeln('Otvet'); 
writeln('predl=',a); 
writeln('slov=',b); 
readln; 
end.

program Project1;
var
  s: string; 
  a, b, i: integer;
 
begin
  writeln('Vvedite'); 
  write(s); 
  readln(s); 
  a := 0; 
  b := 0; 
  for I := 1 to length(s) do 
    if s[i] = '.' then 
    begin
      a := a + 1; 
    end; 
  for I := 1 to length(s) do
    if s[i] = ' ' then 
    begin
      b := b + 1; 
    end; 
  writeln('Otvet'); 
  writeln('predl=', a); 
  writeln('slov=', b); 
  readln; 
end.

var
    s: String;
    i, countWord, countSent: Byte;
    inWord: Boolean;
begin
    countSent := 0; countWord := 0; inWord := False;
    Write('Input string: '); ReadLn(s);
    for i := 1 to Length(s) do
    begin
        if ((inWord) And (s[i] = ' '))
        then
        begin
            Inc(countWord);
        end;
        if (s[i] = '.')
        then
        begin
            Inc(countSent);
            if (inWord)
            then
                Inc(countWord);
            WriteLn(countSent, ' sentence: ', countWord, ' words.');
            countWord := 0;
        end;
        inWord := Not (s[i] in [' ', '.']);
    end;
end.