Дан массив состоящий из n (amp;gt; 1) вещественных чисел.найти среднее арифметическое

Решение задачки:
Код написан в программке PascalABC.NET.
Var a: array[1..100] of real;
i,n: integer;
sum, otvet: real;
begin
randomize; //подключение генератора произвольных чисел
write(Введите размерность n = );
readln(n);
write(Массив: );
sum:=0;
for i:=1 to n do
begin
a[i]:=random(101)*random-50; //заполнение массива случайными вещественными значениями
write(a[i], ); //вывод через пробел заполненного массива на экран в строку
sum:=sum+a[i];
end;
writeln;
otvet:=sum/n;
writeln(Ответ: среднее арифметическое значение чисел массива = ,otvet);
end.