Дан массив из 9 чиселнайти среднее арифметическое всех элементов массиваpascal

Program lol;

var
a: array [1..9] of real;
sum: real;
I: integer;

begin
for I := 1 to 9 do
begin
write('a[', I, '] = ');
readln(a[I]);
sum := sum + a[I];
end;
writeln('Среднее арифметическое введённых чисел = ', sum/9);
end.