Подсчитать, сколько элементов в массиве не совпадает с последним элементом. - Pascal

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

Подсчитать, сколько элементов в массиве не совпадает с последним элементом.

Решение задачи: «Подсчитать, сколько элементов в массиве не совпадает с последним элементом.»

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

program Project1;
 const n=1000;
 var i,s:integer;
 A:array [1..n] of integer;
begin
  randomize; s:=0;
  for i:=1 to n-1 do begin
   A[i]:=random(100);
   if a[i]<>a[n] then inc (s);
  end;
  writeln(s);
end.

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

Объявлены константа n равная 1000 и переменные i, s типа integer.
Объявлен массив A типа array [1..n] of integer.
Задана необходимость выполнения программы с помощью ключевого слова program.
Задана инициализация генератора случайных чисел с помощью функции randomize.
Инициализирована переменная s равной 0.
Выполняется цикл for от 1 до n-1, где n-1 это максимальное значение индекса массива A.
В каждой итерации цикла присваивается случайное число из диапазона от 0 до 99 элементам массива A[i].
С помощью оператора if проверяется условие A[i]<>A[n], если оно истинно, то значение переменной s увеличивается на единицу с помощью функции inc.
После завершения цикла выводится значение переменной s с помощью функции writeln.
Ожидается ввод данных, которые не требуются для выполнения данной программы.