Впоследовательности целых чисел определить, имеются ли в ней два идущих подряд положительных элемента. подсчитать количество таких пар. (без массивов, pascal)

Писал на PascalABC.Net v.3.2, сборка 1325 (19.10.2016)
Исходный программный код решения находится в приложении ниже (видно только на веб-сайте).