Дана последовательность X(15). Подсчитать сумму отрицательных и сумму положительных частей

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программка не работает, обновите версию!

begin
  var x:=ArrRandom(15,-50,50); x.Println;
  var (sn,sp):=(0,0);
  foreach var m in x do
    if mgt;0 then sp+=m else sn+=m;
  Writeln('Разница меж суммой положительных и отрицательных ',sp-sn)
end.

Пример
38 -31 -30 50 -12 -27 -2 24 -20 29 46 24 6 32 -2
Разница между суммой положительных и отрицательных 373

Во вложении видно, что х - именно массив (array of integer)

Var 
a:array[1..15] of real;
i:integer;
s1,s2,r:real;
begin
writeln('Заполните массив');
for i:=1 to 15 do  readln(a[i]);
for i:=1 to 15 do
if a[i]gt;0 then s1:=s1+a[i];
for i:=1 to 15 do
if a[i]lt;0 then s1:=s1+a[i];
r:=s1-s2;
writeln('Сумма положительныхgt;gt; ', s1);
writeln('Сумма отрицательныхgt;gt; ', s2);
writeln('разница суммgt;gt; ', r);
end.