Задана последовательность из n вещественных чисел. Определить количество чисел, больших своих соседей - Pascal

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

Задана последовательность из n вещественных чисел. Определить количество чисел, больших своих соседей, т.е предыдущего и последующего числа. Как составить программу, используя оператор цикла с параметром? и блок-схема как чертится? помогите пожалуйста, вообще не понимаю этого

Решение задачи: «Задана последовательность из n вещественных чисел. Определить количество чисел, больших своих соседей»

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

var n,i,k:integer;
    a,b,c:real;
begin
repeat
write('Количество чисел n>2 n=');
readln(n);
until n>2;
write('Введите первое число a=');
readln(a);
writeln('Введите второе число b=');
readln(b);
writeln('Введите остальные числа:');
for i:=3 to n do
 begin
  readln(c);
  if(b>a)and(b>c) then k:=k+1;
  a:=b;
  b:=c;
 end;
write('Количество чисел, больших соседей=',k);
readln
end.

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

Этот код написан на языке Pascal и выполняет следующие действия:

Считывает от пользователя количество чисел (n) и два первых числа (a и b).
Затем, в цикле, считывает оставшиеся числа (c), начиная с третьего, и сравнивает их с предыдущими числами (a и b).
Если текущее число (c) больше предыдущих двух чисел (a и b), то переменная k увеличивается на единицу.
После того, как все числа были введены, выводится количество чисел, которые больше своих соседей. Пример: Количество чисел n>2 n=3 Введите первое число a=1.5 Введите второе число b=2.7 Введите остальные числа: c1=3.2 c2=4.9 c3=6.5 Количество чисел, больших соседей=2 Обратите внимание, что в этом примере предполагается, что пользователь будет вводить корректные вещественные числа.