Заполнить массив А(10) случайными числами из интервала (-25, 13). Найти сумму всех элементов массива (3)

var i,n:integer;    a:array[1..10] of integer;begin randomize; for i:=1 to 10 do begin  a[i]:=random(38)-25;  write(a[i]:5);  end;  writeln; for i:=1 to 10 do  n:=n+a[i]; writeln('Сумма всех элементов=',n);end.