Массив: Вывести на экран числа, встречающиеся в столбцах более одного раза - Free Pascal

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

Дана матрица 16 на 16, заполненная случайными натуральными числами от 1 до 8. Вывести на экран числа, встречающиеся в столбцах более одного раза (вместе с количеством повторений).

Решение задачи: «Массив: Вывести на экран числа, встречающиеся в столбцах более одного раза»

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

 for j:=1 to matrixSize do for i:=1 to maxNum do if rowValues[j,i]>2 then WriteLn('Цифра ',i,' встречается в столбце ', j,': ', rowValues[j,i],' раз(а).');

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

В данном коде выполняется следующая последовательность действий:

Задаются два вложенных цикла, первый из которых (for j:=1 to matrixSize) отвечает за перебор строк в матрице, а второй (for i:=1 to maxNum) — за перебор столбцов.
Внутри циклов проверяется условие (if rowValues[j,i]>2), которое определяет, встречается ли цифра в столбце больше двух раз.
Если условие выполняется, то происходит вывод на экран строки, которая содержит информацию о цифре, ее месте в матрице и количестве повторений. Пример вывода: Цифра 3 встречается в столбце 2: 5 раз(а). Данный код решает задачу поиска повторяющихся цифр в матрице и выводит их на экран вместе с информацией о месте и количестве повторений.