Составить программу нахождения суммы элементов массива,состоящего из 10 чисел

Begin
var sum:=0;
var a:=arrRandom (10, -100, 100);
for var i:=0 to length (a)-1 do sum+=a[i];
writeln ('Исходный массив: ', a);
write ('Сумма элементов: ', sum); 
end.