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

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.