Составить алгоритм и программку подсчитывающую количество меньших чем примыкающие элементов массива

Сперва мы сделаем нужный массив Z, в котором будем беречь значения, которые необходимо будет сопоставить:
var Z: array[1..13] of real; W, count: integer;
Заполнять его необходимо не хоть какими числами, а по специальной формуле. Делать это будем в цикле:
for W:=1 to 13 do
Z[W]:= W*sin(W);
Массив сотворен и заполнен. Сейчас нам необходимо пройти еще раз по всем элементам и посмотреть, какие из их меньше, чем те, что слева и справа от элемента, и сосчитать их количество:
if Z[2] gt; Z[1] then
count:=count+1;
for W:=2 to 12 do
if (Z[W] lt; Z[W-1]) and (Z[W] lt; Z[W+1]) then
count:=count+1;
if Z[13] lt; Z[12] then
count:=count+1;
Выводим count и заканчиваем программу.