Найти произведение девяти следующих подряд нечетных чисел, начиная с 5 — Pascal(Паскаль)

Program PascalGuru;

var
  i, k: integer;
  p: real; { REAL т.к. произведение будет большим }

begin
  i := 4;
  p := 1;
  k := 0;

  repeat
    inc(i);

    if odd(i) then
    begin
      writeln(i);
      inc(k);
      p := p * i;
    end;

  until k = 9;

  writeln;
  writeln('Proizvedenie=  ', p:0:0);

  readln;

end.