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

// PascalABC.NET 3.3// Cборка 1590 от 03.12.2017begin   var a:=ArrRandom(ReadInteger('Введите размер массива->'),-2,65); a.Println;   Println(a.Where(e->e>0).Min);   Println(a.Where(e->e<0).DefaultIfEmpty.Max); end.Пример(1):Введите размер массива-> 105 22 21 20 40 9 58 57 54 -2Минимальное среди положительных: 5 Максимальное среди отрицательных: -2 Пример(2):Введите размер массива-> 1026 7 13 60 39 62 24 9 20 11Минимальное среди положительных: 7 Максимальное среди отрицательных: 0