Для заданного одномерного массива а[1..10] найти среднее значение всех его элементов

Var
s: real;
i: byte;
a: array [1..10] of integer;
begin
заполнение массива;
for i:=1 to 10 do s:=s+a[i];
s:=s/10;
end.