помогите исправить паскаль задачу

условие

Задан одномерный массив А (n). Найти среднее арифметическое положительных элементов массива.

мое решение

program a1;
const n=10;
VAR a:array[1..n] of real;
i,sa:integer;
k:real;
begin
sa:=0;
k:=0;
for i:=1 to n do
readln(a);
if(a [ i ] >=0) then begin
k:=k+1;
sa:=sa+a[ k ] ;
end;
if(k>=0) then sa:=sa/k;
writeln('среднее арифметическое',sa);
end.

на строке 13 пишет "ожидалось выражение типа интегер