Если считать, что количество пробелов между словами всегда равно 1, а также что нет пробелов до и после последовательности, то количество слов = количеству пробелов + 1.

Код:

• program words;
• var
•    s: string;
•    k, i: integer;
• begin
•    WriteLn('Введите последовательность слов с пробелами:');
•    ReadLn(s);
•    k := 1;
•    for i := 1 to length(s) do
•        if s[i] = ' ' then k := k + 1;
•    WriteLn('Кол-во слов: ', k);
• end.