Хелп ми паскаль. как заполнить одномерный массив случайным образом с отрицательными числами и найти их сумму?

randomize;     
for i:=1 to 15 do
mas[i]:=random(40)-15;

Непонятно, что сложить, если ВСЕ числа то - 

for i:=1 to 15 do
sum:=mas[i]+sum;

Пример для 15 чисел в массиве