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

program fgfg;
uses crt;
var
i,kol:integer;
stroka: string;
begin
ClrScr;
Writeln('Введите слова');
readln(stroka);
kol:=0;
stroka:=stroka+' ';
for i:=1 to length(stroka)-1 do
if (stroka[i]<>' ')and(stroka[i+1]=' ')
then
kol:=kol+1;
writeln('Кол-во слов: ',kol);
Repeat
Until KeyPressed;
end.