PascalABC Массив состоящий из 30 ,в интервале от -2 до 65.Отыскать

//PascalABC.NET версия 3.2, сборка 1389
//Если программка не запускается, то обновите версию

begin
    var a := ArrRandomInteger(30, -2, 65);
    writeln('малое из положительных чисел ', a.Where(x -gt; x gt; 0).Min);
    if a.Any(x -gt; x lt; 0) then
        writeln('наибольшее из отрицательных ', a.Where(x -gt; x lt; 0).Max)
    else writeln('нет отрицательных ');
end.