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

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