помогите пажалуйста. очень...

помогите пажалуйста. очень надо решить!!!!! составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляетсреднее арифметическое нечётных чисел.

 

var
a:array [1..40] of integer;
k,i,s:integer;
sr:real;
begin
randomize;
for i:=1 to 40 do begin
a:=random(21);
write (a,' ');
end;
writeln;
for i:=1 to 40 do
if odd(i)=true then begin
k:=k+1;
s:=s+a;
end;
sr:=s/k;
writeln (sr:3:4);
readln;
end.