Данн массив x состоящий из n элементов найти сумму его элементов. Написать программы (Turbo pascal), и нарисовать блок схем. Помогите плизз. Заранее спасибо!

const n=кол-во элементовvar x:array[1..n] of integer;     i,s:integer;beginfor i:=1 to n dox[i]:=1+random(9);  //заполняем массив числами от 1 до 9for i:=1 to n dos:=s+x[i];writeln(s);readln;end.