Паскаль, цикл с предусловием while. Вводится целое положительное число. Найти наименьшую нечетную цифру в числе. Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр"

Var min, n, r, m:integer;

begin

writeln ('Введите целое положительное число') ;

read (n) ;

min : = 10;

r : = 1;

while r 0 do

begin

m : = n mod 10;

if (m < min) and (m mod 2 = 1) then min : = m;

r : = n div 10;

n : = r;

end;

if min = 10 then writeln ('В числе нет нечетных цифр') else writeln (min)

end.