Найти сумму элементов одномерного массива

[FYNZIK]

Найти сумму элементов одномерного массива.сам код я сделал, мне нуэно добавить чтобы выводилась сама матрица рандомных чисел,а я не понимаю как ((((
Program sds;
uses crt;
var
s:real;
i,n:integer;
a: array [1..20] of integer;
Begin
read(n);
for i:=1 to n do begin
a[i]:= random(10);
end;
s:=0;
for i:=1 to n do begin
s:=s+a[i];
end;
writeln('s = ',s);
end.

[BDA]

После рандома дописать write(a[i], ' ');.