(Паскаль) Дан массив вещественных чисел.Вывести минимальное положительное число

Число 0 не считается положительным в моем решении. Если его всё же надо считать положительным, то вместо a[i] > 0 нужно писать a[i] >= 0.
См комментарии в коде.