Помогите написать программу на PascalABC. Найдите положительные и отрицательные целые числа

PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 Writeln('Сумма отрицательных чисел одинакова ', a.Where(t -gt; t lt; 0).Sum);

 Writeln('Сумма положительных чисел одинакова ', a.Where(t -gt; t gt; 0).Sum);

 Write('Наибольшее по модулю число ');

 var (m1, m2) := (a.Min, a.Max);

 if Абс(m1) gt; Abs(m2) then m1.Println

 else m2.Println

end.