Вот, пожалуйста, n - глобальная переменная (хотя можно спокойно было без нее обойтись).
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
var
n:integer;
begin
n:=ReadlnString('Введите строку:').ToWords.Count;
WritelnFormat('Количество слов равно {0}',n)
end.
Тестовое решение:
Введите строку: А роза упала на лапу Азора
Количество слов равно 6