Умоляю, Пожалуйста посчитайте (PascalABC 9 класс).массив состоит из 30 элементов,в промежутке от -2 до 65.Найти минимальное из положительных чисел,и максимальное из отрицательных.

begin 
  var a:=ArrRandom(ReadInteger('Введите размер массива->'),-2,65); a.Println; 
  Println(a.Where(e->e>0).Min); 
  Println(a.Where(e->e<0).DefaultIfEmpty.Max); 
end.



Введите размер массива-> 10
5 22 21 20 40 9 58 57 54 -2
Минимальное среди положительных: 5 
Максимальное среди отрицательных: -2 



Введите размер массива-> 10
26 7 13 60 39 62 24 9 20 11
Минимальное среди положительных: 7 
Максимальное среди отрицательных: 0