HELP! Массив A вводится с клавиатуры. Найти сумму его элементов. Размер произвольный. Pascal

varA:array[1..100]of integer;i, n, S: integer;beginread(n); S:=0;for i:=1 to n do beginread(a[i]); S:=S+a[i]; end;writeln(S);end.