Дан массив из 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