Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных

Var n,i: integer;
sr: real;
a: array [1..10000] of real;
begin
//запрос необходимых черт
Write(Введите количество чисел: ); Readln(n);
Writeln(Введите числа);
For i:=1 to n do readln(a[i]);
//вычисление среднего арифметического
sr:=0;
For i:=1 to n do sr:=sr+a[i];
sr:=sr/n;
//вывод
Writeln (Среднее арифметическое введённых чисел равно , sr:4:3);
end.