Программа которая вычисляет сумму всех положительных частей массива целых без учета

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var max:=a.Max;
  Writeln('Сумма положительных без максимума одинакова ',
      a.Where(x-gt;(xgt;0) and (xlt;gt;max)).Sum)
end.

Пример
n= 16
-47 -28 38 49 -42 2 49 -29 39 -36 -4 -11 45 -12 -44 -16
Сумма положительных без максимума одинакова 124