Количество различных элементов в монотонном массиве

Infooter

Формат входных данных Сначала задано число N - количество элементов в массиве (N не превосходит 100). Далее через пробел записаны N целых чисел - элементы массива (числа типа int/longint). Элементы массива отсортированы по неубыванию (каждый элемент массива не меньше предыдущего элемента, например, {1, 2, 2, 3, 3, 3}).Формат выходных данныхНеобходимо вывести количество различных чисел в этом массиве.
var
  a: array of integer;
  n, i, j, k: integer;
 
begin
  readln(n);
  setlength(a, 100);
  for i := 1 to n do
    read(a[i]);
  for j := 1 to n do
    if a[j] <> a[j - 1] then inc(k);
  writeln(k);
end.
Где ошибка? Решение вроде простое, но тесты не все проходит.
1 ответ

Infooter

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