Задано целое положительное число. найдите произведение нечетных цифр числа. если таких цифр нет, то вывести об этом сообщение

Var n,p:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=1;
f:=false;
while n>0 do
 begin
 if n mod 2=1
  then begin p:=p*(n mod 10); f:=true; end;
 n:=n div 10;
 end;
if f then writeln('p = ',p) else writeln('В числе нет нечетных цифр');
end.

Пример:
n = 14538
p = 15