Помогите

Найти сумму элементов массива состоящего из 12 элементов

Массив заполняется члучайными числами от 0 до 100.

var

a:array[1 ... 12] of integer;

i, sum:integer;

begin

sum:=0;

for i:=1 to 12 do

begin

a[i]:=random (101) ;

writeln ('a[', i,']=', a[i]) ;

sum:=sum+a[i];

end;

writeln;

writeln ('Summa elementov massiva = ', sum) ;

end.