Заполнить массив а(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.