Подсчитать количество различных чисел, встречающихся в одномерном массиве - Pascal

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

1) Подсчитать количество различных чисел, встречающихся в одномерном массиве; 2) Подсчитать сумму элементов каждой строки двумерного массива А(4,6). Заранее спасибо!

Решение задачи: «Подсчитать количество различных чисел, встречающихся в одномерном массиве»

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

c := 0;
for i := 1 to N do
begin
  f := true;
  for j := 1 to N do
    if (a[i] = a[j]) and (i <> j) then
    begin
      f := false;
      break;
    end;
  Inc(c, ord(f));
end;

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

Переменная c инициализируется значением 0.
Затем происходит цикл for, который начинается с i = 1 и продолжается до N.
Внутри цикла есть вложенный цикл for, который начинается с j = 1 и продолжается до N.
В этом вложенном цикле проверяется условие (a[i] = a[j]) и (i <> j). Если это условие истинно и i не равно j, то переменная f устанавливается в значение false и цикл прерывается командой break.
Если условие не выполняется, то переменная f остается равной true.
После завершения вложенного цикла, переменная f проверяется. Если она равна true, то переменная c увеличивается на значение ord(f), где ord - функция, возвращающая порядок (порядок элементов в наборе).
Цикл for заканчивается, и его значение присваивается переменной i.
После завершения внешнего цикла, значение переменной c возвращается как результат работы программы.