Напишите с клавиатуры натуральное число и находит наименьшее чётную цифру в его десятиной записи

begin
  var (min,n):=(10,ReadInteger);
  while n>0 do begin
    var d:=n mod 10;
    if d.IsEven and (d<min) then min:=d;
    n:=n div 10
    end;
  if min=10 then Writeln('В числе нет четных цифр')
  else Writeln('Минимальная четная цифра ',min)
end.


162083
Минимальная четная цифра 0

153379
В числе нет четных цифр