Что не верно в этой программке? надобно отыскать среднее арифметическое нечетных

Что не верно в этой программке? надобно отыскать среднее арифметическое нечетных чисел. В этой строке (i:=i+1;) пишет Нельзя изменять значение переменной цикла внутри этого цикла
Program P1;
Var K: array [1..40] of integer;
i,S: integer;
sr: real;
begin
For i:= 1 to 40 do K[i]:= random(21)+0;
writeln;
For i:= 1 to 40 do write(K[i], ' ');
S:=0;
i:=0;
writeln;
For i:= 1 to 40 do if K[i] mod 2=1 then begin
S:= S+K[i];
i:=i+1;
sr:= S/i;
end;
Write(sr);
end.