Если предположить, что слова разделяются пробелами, то можно использовать например:
Код
if (s[i]=' ') and (s[i+1]<>' ') then schetchik_slov:=schetchik_slov+1;
Добавлено через 16 мин. Вот программа, могущая работать с большим количеством разделителей. В качестве разделителя могут быть пробел и символ _ . Можно использовать оба, но между двумя словами может быть только один вид разделителя.
Код
var s:string;
a,b:integer;
begin
writeln('Введите строку');
readln(s);
for a:=1 to length(s) do
begin
if (s[a]=' ') and (s[a+1]<>' ') then b:=b+1;
if (s[a]='_') and (s[a+1]<>'_') then b:=b+1;
end;
b:=b+1;
writeln('В строке ', b ,' слов.');
readln;
end.