Определить последний элемент массива - Turbo Pascal

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

Дан массив целых чисел. Определить: а) количество элементов, отличных от последнего элемента;

Решение задачи: «Определить последний элемент массива»

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

const
  nmax=100;
type
  Tarr=array[1..nmax] of integer;
var
  a:Tarr;
  i,n,k:integer;
begin
  randomize;
  repeat
    write('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=random(5);
      write(a[i]:4);
    end;
  writeln;
  k:=0;
  for i:=1 to n-1 do
    if a[i]<>a[n] then inc(k);
  write(k);
end.

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

В этом коде:

Объявляются константы и переменные:
- nmax - максимальное количество элементов в массиве (100);
- Tarr - тип массива (массив целых чисел);
- a - сам массив;
- i, n, k - счётчики для циклов.
В начале программы инициализируется генератор случайных чисел.
Далее пользователю предлагается ввести количество элементов массива. Цикл повторяется до тех пор, пока пользователь не введёт число в диапазоне от 1 до nmax.
После этого выводится сообщение Ishodniy massiv: и в цикле заполняются элементы массива случайными числами от 1 до 5. Каждый элемент выводится в отдельной строке, но с учётом того, что в Turbo Pascal есть ограничение на длину строки в 255 символов, каждое число выводится в формате 4-х цифр.
После заполнения массива в цикле проверяется его последний элемент. Если он отличается от предпоследнего, то переменная k, которая инициализирована нулём, увеличивается на единицу.
В конце программы выводится значение переменной k, которое и является ответом на задачу - последний элемент массива.