Благодаря этой программе, можно получать сумму как отрицательных, так и положительных чисел.

var a: array[0..100] of Integer;
n,i,s,sum: Integer;
begin
writeln('Введите кол-во чисел, не привышающие число 100');
readln(n);
Dec(n);
for i:=0 to n do
begin
writeln('Введите ',i+1,' число');
readln(s);
a[i]:=s;
Inc(sum,a[i]);
end;
writeln('Полученный ответ: ',sum);
end.

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Сумма отрицательных значений равна ',a.Where(t->t<0).Sum)
end.

Пример
n= 20
46 -29 -48 -34 36 13 45 50 22 -36 -5 -17 -19 -4 38 19 44 -8 -9 -35
Сумма отрицательных значений равна -244