Найти сумму элементов массива размер произвольный элементы вводятся на своё усмотрение

var i,n,b:integer;

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

begin

write('Сколько элементов в массиве: ');

readln(n);

writeln('Введите элементы: ');

for i:= 1 to n do

begin

read(a[i]);

b:=b+a[i];

end;

write('Сумма всех элементов массива: ',b);

end.