Паскаль, цикл с предусловием 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.