Как сложить все элементы одномерного массива в 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;