Найти и вывести наименьшее содержащееся в массиве положительное число - PascalABC.NET

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

Очень нужна помощь. Уезжаю. Нет интернета и пк. Дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести наименьшее содержащееся в массиве положительное число, десятичная запись которого оканчивается цифрой 7. Гарантируется, что в массиве есть хотя бы один положительный элемент, десятичная запись которого оканчивается цифрой 7. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.

const N=70;
var
a: array [1..N] of integer;
i, j, m: integer;
begin
 for i:=1 to N do
 readln(a[i]);
//…
end.

Заранее благодарю. Без "Спасибо Вас не оставлю"! P.S. Уважаемая администрация, не удаляйте мои темы из-за их похожести

Решение задачи: «Найти и вывести наименьшее содержащееся в массиве положительное число»

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

//...
j := 0;
for i := 1 to N do if (a[i] > 0) and (a[i] mod 7 = 0) and (a[i] < j) then j := a[i];
writeln('Наименьшее положительное число, делящееся нацело на 7: ', j);
//...

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

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

В переменной j устанавливается значение 0.
Происходит цикл по индексам массива a от 1 до N.
Внутри цикла проверяется, является ли текущий элемент массива положительным и делится ли он нацело на 7.
Если условие выполняется, то значение текущего элемента присваивается переменной j.
После завершения цикла выводится наименьшее положительное число, делящееся нацело на 7. Список переменных и их значений:
i - индекс текущего элемента массива a.
N - количество элементов в массиве a.
a - массив, в котором происходит поиск.
j - переменная для хранения наименьшего положительного числа, делящегося нацело на 7.