Строки, Для строки, которая может начинаться с пробела найти кол-во слов Опции

[Джейн Смит]

Для строки, которая может начинаться с пробела найти кол-во слов.

Я сделала, но если вначале строки или в конце я ставлю пробел, то выдаёт неправильное значение. Может объясните в чём ошибка?

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.

[Lapp]

Вот, как-то так можно сделать:

const
  A=['A'..'Z']+['a'..'z'];

Var
  i,n: integer;
  s: string;

BEGIN
  writeln('Vvedite stroky:');
  readln(s);
  n:=0;
  for i:=1 to Length(s) do if (s[i] in A)and((i=1)or not(s[i-1] in A)) then Inc(n);
  writeln('V predlogenii ',n,'slov/o/a)');
  ReadLn;
END.

Unconnected, искренне тебе советую работать не с разделителями, а с алфавитом ))