Количество слов в тексте

Данная программа определяет колличество слов в тексте.

uses crt;
var
s1:string;
i,j,k:integer;
begin

writeln('Введите текст до точки');
read(s1);
j:=pos('.',s1);
if s1[j-1]=' ' then begin
k:=-1;
s1:=copy(s1,1,j-1);
end;

repeat
i:=pos(' ',s1);
delete(s1,1,i);
if i<>1 then inc(k);
until i=0;
writeln('Количество слов=', k);

end.