В массиве определить элементы, слева и справа от которых расположены меньшие значения - Pascal

В произвольно заданном одномерном массиве определить элементы, слева и справа от которых расположены меньшие значения.(Paacal)

Листинг программы

  for i:=Low(a)+1 to High(a)-1 do
    if (a[i]>a[i-1]) and (a[i]>a[i+1]) then
      WriteLn('a[',i,'] = ',a[i]);

Объяснение кода листинга программы

Переменная i инициализируется значением Low(a)+1.
Переменная i увеличивается на 1 и проверяется условие a[i]>a[i-1].
Если условие выполняется, то проверяется условие a[i]>a[i+1].
Если и это условие выполняется, то выводится значение переменной a[i].
Переменная i увеличивается на 1.
Цикл выполняется до тех пор, пока значение переменной i меньше High(a)-1.
Если условие не выполняется, то цикл прекращается и программа продолжает работу со следующей итерацией цикла или выполняет другие инструкции.