Подсчитать произведение целых нечётных чисел диапазона [a ,b]

Program Proizved;
var i, a, b, rez : integer;
begin
write('введите начало диапазона ');
readln(a);
write('введите конец диапазона ');
readln(b);
rez:=1;
for i:=a to b do
if (i mod 2)<>0
then rez:=rez*i;
i:=i+1;
writeln('Произведение нечетных чисел диапазона = ', rez);
end.