Подсчитать количество слов в строке, если все слова разделены ровно одним пробелом. В начале и в конце строки пробелов нет. Паскаль

Var s:string; k:integer;
begin
writeln(Введите строку:);
readln(s);
s:=s+ ;
while pos( ,s)0 do
 begin
 k:=k+1;
 delete(s,1,pos( ,s));
 end;
writeln(k=,k);
end.

Пример:
Введите строку:
Подсчитать количество слов в строке
k=5