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

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