Найти сумму отрицательных элементов массива A (10), заданного ГСЧ на отрезке [-20; 20]

Program gcch;

var i, s:integer; mas:array [0 ... 10] of integer;

begin

s:=0;

for i:=1 to 10 do

begin

mas[i]:=Random (21) - 20;

if mas[i]<0 then s:=s+1; end;

writeln ('Сумма отрицательных элементов=', s)

end.