Заполнить массив положительными...

Заполнить массив положительными и отрицательными числами на интервале от -40 до 40 и найти сумму отрицательных чисел,случайным элементом подэлементом 25

 

Var a:array[1..100] of integer; i,n,sum:integer;
begin
randomize;
n := 100; {Кол-во элементов в массиве}
sum := 0;
for i:=1 to n do
a := random(81) - 40;
for i:=1 to n do
if a < 0 then
sum := sum + a;
writeln(sum);
end.