Составьте программу которая заполняет массив а(1..10) случайными целыми числами в диапазоне от 1 до 10, затем вычисляет среднее арифметическое элементов массива

uses crt;
const n=10;
var
i:integer;
sum,sred:real;
mas:array [1..n] of integer;
begin
for i:=1 to n do
begin
mas[i]:=random(10);
end;
for i:=1 to n do
sum:=sum+mas[i];
sred:=sum/n;
write('srednee ravno ',sred);
read;
end.
вот))) если хочешь могу написать чтобы выводила и сами цифры массива, чтобы потом можно было наглядно проверить все)))