Массив А вводится с клавиатуры. Найти сумму его элементов. Размер произвольный. паскаль

Размер массива взял за 100, если нужно изменить количество элементов, то просто поменяй значение N в шапке программы.

const N = 100;

var

i, sum: integer;

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

begin

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

For i:=1 to N do

read (a[i]);

sum:=0;

For i:=1 to N do

sum: = sum + a[i];

writeln (sum);

end.