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

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