Вычислить количество различных элементов в массиве - Pascal ABC

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

Дан массив из N чисел в интервале от -32000 до 32000. (1<=N<=1000). Все элементы массива упорядочены (по возрастанию или по убыванию). Найти количество различных элементов в данном массиве. Ввести в первой строке одно число N. Во второй строке через один или несколько пробелов расположены N чисел. Вывести одно число - количество различных элементов в данном массиве.

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

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

program z1644142;
 const nmax=1000;
 var n,i,k:integer;
     a:array [1..nmax] of integer;
begin 
 writeln('Введите количество элементов массива:');
 readln(n);
 writeln('Введите значения элементов массива:');
 for i:=1 to n do
  read(a[i]);
 k:=1;
  for i:=2 to n do
   if a[i-1]<>a[i]
    then k:=k+1;
 writeln(k)
end.

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

В программе объявлены переменные: n, i, k, a.
Выводится сообщение для ввода количества элементов массива.
Считывается количество элементов массива.
Выводится сообщение для ввода значений элементов массива.
В цикле for считываются значения элементов массива.
Переменная k инициализируется единицей.
Во внутреннем цикле for проверяется условие if: если значение текущего элемента не равно предыдущему, то переменная k увеличивается на единицу.
По окончании внутреннего цикла выводится значение переменной k.