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))

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