Если слова в предложении разделяются одним пробелом, то:
var s:string; p,k:integer;
begin
writeln('Введите предложение:');
readln(s);
s:=s+' ';
k:=0;
p:=pos(' ',s);
while p<>0 do
begin
k:=k+1;
delete(s,1,p);
p:=pos(' ',s);
end;
writeln('k = ',k);
end.
Пример:
Введите предложение:
Определить, сколько слов в данном предложении.
k = 6