Имеется числовой массив состоящий из 15 элементов. Вывести на экран среднее арифметическое всех элементов. Нужна

var
i,sum : integer; // объявляем переменные целочисленного типа.
arr : array [1..15] of integer; // объявляем массив.
Begin
writeln('Введите 15 чисел для заполнения массива:'); // вывод строки на экран.
for i:= 1 to 15 do // начало цикла.
begin
readln(arr[i]); // считываем элемент массива.
sum := sum + arr[i]; // считаем сумму элементов.
end;
writeln('Среднее арифметическое элементов массива: ', round(sum / 15, 2)); // вывод ответа.
End.