Какая ошибка в программе паскальАВС? УСЛОВИЕ: В одномерном массиве найти среднее арифметическое всех элементов массива

program _1;

var i, n: integer; S, O, k: real; a: array [1..50] of real;

begin

writeln ('Ввод n');

readln(n);

for i:= 1 to n do

begin

writeln ('Ввод a [',i,']');

readln (a[i]);

S:=0;

k:=0;

S:= S+a[i];

k:=k+1;

end;

O:= S/k;

writeln ('O=',O);

end.