Дан массив из 10 целых чисел. найти среднее значение элементов массива

Program z1;
var
i,s:integer;
s1:real;
a:array[1..10] of integer;
begin
writeln('Введите числа');
for i:=1 to 10 do
begin
readln(a[i]);
s:=s+a[i];
end;
s1:=s/10;
writeln(s1);
end.