Найти в массиве количество локальных минимумов - PascalABC.NET

Формулировка задачи:

Привет. Нужна помощь в задачках, т.к. уеду до 31 числа. Не будет интернета и ПК. Дан массив, содержащий 2014 положительных целых чисел. Напишите на одном из языков программирования программу, которая находит в этом массиве количество локальных минимумов. Локальным минимумом называется элемент массива, который меньше всех своих соседей. Например, в массиве из 6 элементов, содержащем числа 4, 6, 12, 7, 3, 8, есть два локальных минимума: это элементы, равные 4 и 3. Программа должна вывести общее количество подходящих элементов, значения элементов выводить не нужно. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.

const
N=2014;
var a: array [1..N] of integer;
 i, j, k: integer;
begin
 for i:=1 to N do
 readln(a[i]);
…
end.

Заранее благодарю. Без "Спасибо" Вас не оставлю! P.S. Уважаемая администрация, не удаляйте мои темы из-за их похожести

Решение задачи: «Найти в массиве количество локальных минимумов»

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

CONST
  N = 2014;
VAR
  a: Array [1..N] of integer;
  i, j, k: integer;
BEGIN
  For i := 1 to N do
    Readln(a[i]);
 
  For i := 2 to (N-1) do
    If (a[i-1] > a[i])and(a[i] < a[i+1]) then Inc(k);
    
  If (a[1] < a[2]) then Inc(k);
  If (a[N-1] > a[N]) then Inc(k);
  
  Write(k);
END.

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

Объявлен массив a размером 2014 элементов для хранения целых чисел.
В цикле For i := 1 to N do проводится чтение элементов массива a с помощью процедуры Readln.
В цикле For i := 2 to (N-1) do выполняется проверка на локальный минимум: если текущий элемент больше предыдущего и меньше следующего, то увеличивается счетчик минимумов k.
Проверяется также, является ли первым элементом массива локальный минимум (если a[1] < a[2], то увеличивается k).
Проверяется также, является ли последним элементом массива локальный минимум (если a[N-1] > a[N], то увеличивается k).
Результат подсчета локальных минимумов выводится на экран с помощью процедуры Write.