Составить алгоритм среднего арифметического 7 введенных чисел

Var
s: real;
i: byte;
a: array [1..7] of integer;
begin
for i:=1 to 7 do
begin
writeln('Введите ', i, ' число: ');
read(a[i]);
s:=s+a[i];
end;
s:=s/7;
writeln('Среднее арифметическое: ', s);
end.