Отыскать сумму элементов массива состоящего из n частей элементы вводятся случайным

program znru;

uses crt;

var a:array [1..10000] of integer;

n,i,sum: integer;

begin

clrscr;

randomize;

write('N = ');readln(n);

write ('A = [ ');

for i:=1 to n do begin

a[i]:=random(10);

write(a[i],' '); end;

writeln(']');

for i:=1 to n do sum:=sum+a[i];

writeln('Summa = ',sum);

end.

Вот программка для нахождения суммы 10 чисел массива которые вводятся с клавиатуры произвольным образом ,так же можно самому генерировать случайные числа в массиве и обретать их сумму код для этой программки на 2 фото)