Написать программу в турбо паскале дано целое число n и набор из n целых чисел найти количество элементов содеражащихся между первым и последним максимальным элементом если в наборе имеется единственный максимальный элемент,то вывести на экран 0

Вводится в паскале  последовательность из N целых чисел .Является ли последовательность возрастающей? С использованием Repeat или   While.  Не является