Посчитать среднее арифметическое нечетных чисел среди 21 что вводит пользователь — Pascal(Паскаль)

var
 a,i,k:integer;
 sr:real;
begin

sr:=0;k:=0;
for i:=1 to 21 do
 begin
  readln(a);
  if odd(a) then
   begin
    sr:=sr+a;
    k:=k+1;
   end;
 end;
if k=0 then write('Нечетных нет')
else
 begin
  sr:=sr/k;
  write('Среднее нечетных=',sr:0:2);
 end;
end.