Дано целое число N и набор из N целых чисел. Найти минимальное положительное число из данного набора. Если положительные числа в наборе отсутсвуют, то вывести 0.
С выводом минимального положительного числа у меня вроде бы получилось, а вот с проверкой на отрицательность не вышло

Я так и проверял, но что-то не пошло

В моем задании давалось только для трех чисел, но мне хочется сделать для любого кол-ва чисел. ВО код: const n=3;var i, imin: integer;a: array [1..n] of real;begina[1]:=-4.87; a[2]:=-2.8;a[3]:=-4.32;for i:=1 to n doif a[i]<0 then writeln('0');imin:=1;for i:=2 to n dobeginif (a[i]>0) and (a[i]<a[imin]) then imin:=i;end;writeln('Минимальное положительное число - ',a[imin])end.