Сделайте с подмогою Паскаля,пожалуйстаНаписать программку вычисляющую среднее арифметическое

Var a:array of integer;
i,s,n:integer;
begin
write ('Введите количество частей массива: ');
readln (n);
a := new integer[n];
for i:= 0 to n-1 do
a[i]:= random(13);
writeln(a);
for i:=0 to n-1 do
s:=s+a[i];
writeln('Среднее арифметическое элементов массива одинаково: ',s/n)
end.