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

Код:
for i:=2 to n-1 do if (a[i-1]<a[i]) and (a[i]>a[i+1]) then writeln(i,' element');
(Источник:http://www.programmersforum.ru)