Напишите программу, которая находит минимальный из нечётных положительных элементов массива. если в массиве нет нечётных положительных элементов, нужно вывести сообщение об этом

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var s:=a.Where(t->t.IsOdd and (t>0));
  if s.Count=0 then Writeln('Нет нечетных положительнных')
  else s.Min.Println
end.

Пример
n= 13
31 -5 -22 19 -30 21 -11 -28 -3 20 -19 36 -29
19

import random
mas = [random.randint(0,100) for i in range(40)]
print('Всі числа:\n',mas)
chonti = []
ne_chotni = []
for x in mas:
if x%2 == 0:
chonti.append(x)
else:
ne_chotni.append(x)
print('Парные:\n',chonti)
print("Непарные:\n",ne_chotni)
if len(ne_chotni) == 0:
print("В масиве немає нечотних елементов!")
print("Минимальный с нечотних элементов:",min(ne_chotni))

Если шестеренка с буквами двигается против часовой, а стрелка стоит на месте то буквы будут перечисляться по порядку, от А до Я.
Так как главная шестеренка вращает остальные, то вторая будет двигаться по часовой, это значит что начиная с нуля цифры на второй шестеренке будут уменьшаться, 0, 9, 8...1 и по кругу.
Далее третья шестеренка будет двигаться против часовой значит цифры будут идти по нарастающей, от 0 до 6. Составим таблицу
Таблица в картинках
О Л И М П И А Д А = 51 85 12 76 42 12 00 64 00

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.