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