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

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