Array A is entered from the keyboard. Find the sum of its elements. The size is arbitrary. (pascal)

I took the size of the array for 100, if you need to change the number of elements, then just change the value of N in the program header.
const N = 100;
var
i, sum: integer;
a: array [1..N] of integer;
begin
write (‘Enter array elements:’);
For i: = 1 to N do
read (a [i]);
sum: = 0;
For i: = 1 to N do
sum: = sum + a [i];
writeln (sum);
end.