Вопрос по информатике:

Дан массив, содержащий 70 целых чисел из промежутка [-100;100].Опишите на
языке программирования Паскаль алгоритм, позволяющий найти и вывести наименьшее содержащееся в массиве положительное число, десятичная запись которого оканчивается цифрой 7.Гарантируется, что в массиве есть хотя бы один положительный элемент, десятичная запись
которого оканчивается цифрой 7.
const N=70;
var
a: array [1..N] of integer;
i, j, m: integer;
begin
for i:=1 to N do
a[i]:=random(__)-__;