дан одномерный массив а размер массива 10 найти сумму всех элементов массива

var i,sum:integer; a:array[1..10] of integer;begin;for i:=1 to 10 do readln(a[i]); next i;sum:=0;for i:=1 to 10 do sum:=sum+a[i]; next i;writeln('Сумма элементов = ',sum);end.