Дан линейный массив найти сумму линейного массива

Program Task;
Const N = 5;
Var a: Array[1..N] of Integer;
    i, sum: Integer;
Begin
    WriteLn('Введите ', N, ' целых чисел через пробел');
    For i := 1 To N Do
    Begin
        Read(a[i]);
        sum := sum + a[i];
    End;
    WriteLn('Сумма элементов массива: ', sum);
    ReadLn;
End.