ПОМОГИТЕ ПОЖАЛУЙСТА. ОЧ Надобно. ПРЯМ На данный момент Составить программу, которая данные числа

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(ReadInteger('n='));
  Writeln('Сумма чисел равна ',a.Sum)
end.

Пример
n= 10
23 14 -5 16 0 32 -12 4 -6 -2
Сумма чисел одинакова 64

Const Sz = 100; // Размер массива

var
a: array [1..Sz] of integer;
N: integer; // Количество частей в массиве
i: integer;

begin
write('Введите количество элементов в массиве: ');
readln(N);
write('Введите элементы массива: ');
for i:=1 to N do
read(a[i]);
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
end.