Помогите пожалуйста с домашним заданием
На языке программирования Паскаль составить программу считывания с клавиатуры значений 10 целочисленных элементов массива у и вывода на экран среднего арифметического этих элементов.

program average;

const

N = 10;

var

i, sum: integer;

a: array[1..N] of integer;

begin

sum := 0;

for i := 1 to N do

begin

write('Введите значения ', i, ': ');

readln(a[i]);

sum := sum + a[i];

end;

writeln('Среднее значение: ', sum / N:0:2);

end.