Решить в паскале задачу.заполнить массив состоящий из н элементов введенный пользователем в автоматическом режиме .найти среднее значение элемента массива.очень срочно!!!

Var
a:array[1..1000]of integer;
i,n,summ:integer;
begin
write(введите кол-во элементов);
readln(n);
write(введите элементы массива);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
summ:=summ+a[i];
writeln(среднее арифм. элементов массива=,summ/n)
end.