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

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

Привет, ребят! Наверное вас долбают постоянные подобные вопросы. Начну с того, что было задано нам отработать старые темы по информатике. Вот нам и задали 123 задания. Я сделал большую часть, но все же, не успел все. Сейчас я уезжаю в то место, где нет интернета и ПК и мне хотелось бы попросить у Вас помощи. Вот задание(я), которые мне нужно сделать. ____ Дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести наименьшее положительное нечетное число, содержащееся в массиве. Гарантируется, что в массиве есть хотя бы одно положительное нечетное число. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.

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. Уважаемая администрация, не удаляйте мои темы из-за их похожести

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

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

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