Среднеарифметическое число массива -Pascal(Паскаль)

Составить программу для вычисления среднего арифметического числа одномерного массива.

Для решения данной задачи, первоначально необходимо сложить все элементы массива и разделить получившуюся сумму на количество элементов (в данном примере константа n).

В примере количество элементов для массива задается константой n, т.е. для увеличения или уменьшения размерности массива необходимо сменить значение данной константы до выполнения программы. У данного метода решения есть один недостаток: не возможно задать размерность массива в процессе выполнения программы.

Uses Crt;
Const n=10;
Var
	a:Array[1..n] of Integer;
	s: Real;
 	sum,n,i: Integer;
Begin
	ClrScr;
	For i:=1 To n Do
	Begin
		Write('a[',i,']=');
		Readln(a[i]);
    End;
	sum:=0;
	For i:=1 To n Do
		sum:=sum+a[i];
	s:=sum/n;
	Writeln('Ср.ариф.массива = ',s);
	Repeat Until KeyPressed
End.

Внесено изменение для для https://www.onlinegdb.com/online_pascal_compiler

вместо sum,n,i: Integer; объявление sum,i: Integer;

Uses Crt;
Const n=10;
Var
	a:Array[1..n] of Integer;
	s: Real;
 	sum,i: Integer;
 
Begin
	ClrScr;
	For i:=1 To n Do
	Begin
		Write('a[',i,']=');
		Readln(a[i]);
    End;
	sum:=0;
	For i:=1 To n Do
		sum:=sum+a[i];
	s:=sum/n;
	Writeln('Ср.ариф.массива = ',s);
	Repeat Until KeyPressed
End.