Напишите программу, которая подсчитает количество элементов массива, больших предыдущего - Free Pascal

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

Дан массив, состоящий из целых чисел. Напишите программу, которая подсчитает количество элементов массива, больших предыдущего (элемента с предыдущим номером). Входные данные Сначала задано число N — количество элементов в массиве (1<=N<=10000). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел. Выходные данные Необходимо вывести единственное число - количество элементов массива, больших предыдущего. Примеры входные данные 5 1 2 3 4 5 выходные данные 4

Решение задачи: «Напишите программу, которая подсчитает количество элементов массива, больших предыдущего»

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

var a: array [1..10000] of integer;
    n, i, k: integer;
begin
  readln(n);
  read(a[1]);
  k := 0;
  for i := 2 to n do
    begin
      read(a[i]);
      if a[i] > a[i - 1] then inc(k)
    end;
  readln;
  writeln(k);
  readln
end.

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

Объявлены переменные:
- a: array [1..10000] of integer; - массив a размером 10000 для хранения целых чисел
- n, i, k: integer; - переменные n, i, k типа integer
Считывается значение переменной n с помощью функции readln
Считывается значение первого элемента массива a с помощью функции read
Инициализируется переменная k значением 0
В цикле for i := 2 to n считываются значения элементов массива a
Если текущий элемент больше предыдущего, то увеличивается значение переменной k на 1
После цикла выводится значение переменной k с помощью функции writeln
Программа ожидает ввода данных с помощью функции readln