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

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