Написать пограмму,которая сначала должна обеспечть ввод 5 чисел в одномернй массив ,зтем выселить их сумму и вывести ее на экран

Var i,sum:integer;
a:array[1..5] of integer;
begin
writeln('Введите числа');
for i:=1 to 5 do
begin
write('a[',i,']= ');
read(a[i]);
sum:=sum+a[i];
end;
writeln('Сумма элементов массива равна ',sum);
end.