Как сложить все элементы одномерного массива в Pascal?

Program P1; var a: array [1..50] of integer; {Переменная а - одномерный массив в 50 элементов}; S, I : integer; {Переменная S - сумма элементов, I - счетчик цикла}  begin randomize; {включаем генератор случайных чисел}; S:=0;   {Обнуляем значение суммы} for I:=1 to 50 do   {цикл в 50 повторений} begin a[i]:=random(201) - 100; {формируем 50 элементов массива случайным образом в интервале [-100;100]} S:=S+a[i];   {Добавляем каждый элемент к значению суммы} end; wrilteln('Сумма всех элементов ', S); {выводим значение суммы} end;