Выделить в отдельный одномерный массив элементы, кратные 5 - Free Pascal

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

Дан целочисленный массив a(n,n),n=10. Выделить в отдельный одномерный массив элементы, кратные 5. Найти среди них максимальный.

Решение задачи: «Выделить в отдельный одномерный массив элементы, кратные 5»

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

var
    arr: array[0..10, 0..10] of integer;
    arr2: array[0..100] of integer;
    i, j, count: integer;
 
begin
    count:=1;
    for i := 1 to 10 do
    begin
        for j := 1 to 10 do
        begin
            write('[', i, ',',j, '] = ');
            readln(arr[i, j]);
            if (arr[i, j] mod 5 = 0) then
            begin
                arr2[count]:=arr[i, j];
                Inc(count);
            end;
        end;
    end;
    for i := 1 to count-1 do writeln(arr2[i]);
readln;
end.

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

Объявлены следующие переменные:
- arr: array[0..10, 0..10] of integer;
- arr2: array[0..100] of integer;
- i, j, count: integer;
Переменная count инициализируется значением 1.
Два вложенных цикла for, в которых:
- Записывается в консоль индексы текущего элемента массива arr.
- Считывается значение текущего элемента массива arr.
- Проверяется, делится ли значение текущего элемента массива arr на 5 без остатка.
- Если условие выполняется, то значение текущего элемента массива arr записывается в массив arr2, а переменная count увеличивается на 1.
После окончания циклов, выводится на консоль каждый элемент массива arr2, начиная с первого и до count-1.
Программа ожидает ввода данных с клавиатуры с помощью функции readln.