Написать программку, которая вычисляет среднее арифметическое n чисел. Выполнить в Pascal.

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