Найти среднее арифметическое элементов целочисленного массива ,кол-во элементов 8

Program sr;
var
a: array[1..8] of integer;
i, s: integer;
avg: real;
begin
s := 0;
for i := 1 to 8 do
begin
write('a[', i, '] = ');
readln(a[i]);
s := s + a[i];
end;
avg := s / 8;
writeln('среднее: ', avg);
end.