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

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

Массив А(30) заполнить целыми случайными числами в диапазоне от 5 до 115. Вывести те значения А(I)(I = 2, 3, . . ., 29), которые больше своих соседей, и подсчитать их количество N. Вывести также весь массив А.

Решение задачи: «Вывести те значения массива, которые больше своих соседей, и подсчитать их количество»

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

uses crt;
const n=30;
var a:array[1..n] of integer;
    i,k:byte;
begin
clrscr;
randomize;
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=5+random(111);
  write(a[i]:4)
 end;
writeln;
writeln('Элементы массива, бльшие соих соседей');
k:=0;
for i:=2 to n-1 do
if(a[i]>a[i-1])and(a[i]>a[i+1]) then
 begin
  k:=1;
  write(a[i]:4);
 end;
if k=0 then write('Таких элементов нет');
readln
end.

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

Этот код на Turbo Pascal создает массив из 30 чисел, случайным образом выбранных в диапазоне от 5 до 110. Затем он выводит этот массив на экран. Далее, код переходит к подсчету элементов массива, которые больше своих соседей. Для этого он использует цикл for, который проходит по всем элементам массива, кроме первого и последнего. Если текущий элемент больше предыдущего и следующего, то он увеличивает счетчик k на 1. Если после прохода по всем элементам счетчик k равен нулю, то выводится сообщение о том, что таких элементов нет. В итоге, код выводит на экран массив чисел и количество элементов, которые больше своих соседей.