Напишите программу(с переменных),которая находит кол-во слов в строке символов.(pascal)

Вот глобальная переменная (хотя можно спокойно было без нее обойтись).

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
var
  n:integer;

begin
  n:=ReadlnString('Введите строку:').ToWords.Count;
  WritelnFormat('Количество слов равно {0}',n)
end.

Тестовое решение:
Введите строку: А роза упала на лапу Азора
Количество слов равно 6