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

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.