Я сделала, но если вначале строки или в конце я ставлю пробел, то выдаёт неправильное значение. Может объясните в чём ошибка?
Program Stroki (input, output);
Uses crt;
Var
N,b,ch:integer;
word:string;
Label l;
BEGIN
Clrscr;
writeln('Vvedite stroky:');
readln(word);
n:=length (word);
ch:=1;
b:=pos(' ',word);
l: If b>0
then
begin
ch:=ch+1;
delete(word,1,b);
n:=length (word);
If n>0
then
begin
b:=pos(' ',word);
goto l;
end;
end;
writeln('V predlogenii ',ch,'slov(o)');
readkey;
END.