Как подсчитать количество слов в строке? Опции

[Shmaniche]

Есть следующая наработка:

Program;
uses crt;
var s: string; i, n, l: integer;
begin
clrscr;
write('Enter string:'); readln(s);
l:=length(s);
if l=0 then n:=0 else n:=1;
for i:=1 to l do
if (s[i]=' ') then n:=n+1;
writeln('Words in string =', n);
Readkey;
end.

Все врое бы ОК. Пробел - разделитель (что по условию задачи верно). Пишет "0 слов", если ничего не введешь или "1 слово", если введешь одно. Но если введешь "слово" [пробел] "слово" [пробел] " ", то программа скажет, что введено 3 слова, хотя его нет после второго проблела.
Как сделать так, чтобы программа считала верно в таком случае?

Сообщение отредактировано: Lapp - 9.06.2010 8:15

[J.Bond_33]

как вариант сначала удалять все пробелы до слов, и после, а так же между словами если их более 2

Сообщение отредактировано: J.Bond_33 - 9.06.2010 8:11