Программа которая рассчитывает количество слов в предложении паскаль

Var
S:string;
N,i:integer;
Begin
WriteLn('Введи предложение');
ReadLn(S);
N:=0;
For i:= 2 to Length(S)-1 do
 if (S[i]=' ')and(S[i-1]<>' ')and(S[i+1]<>' ') then N:=N+1;
Write(N+1)
End.