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

var s:string; k:integer;beginwriteln('Введите строку:');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