Дан массив из 15 элементов, найти среднее арифметическое этих элементов.
Помогите, срочно нужно

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

-------------------------------
Введите 15 чисел: 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
Среднее арифметическое = 8