Дан массив из 10 целых чисел, заданных случайно из диапазона от -10 до 10. сколько чисел в массиве меньше своего соседа слева, но больше соседа справа?

Pascal abc
Результат выполнения программы:
 -10   5  10   2   7   3  -3  -2   5   5
кол-во=1