Дано целое число. найти наименьшее четное из набора. то есть если число 123, то ответом будет 1. язык паскаль

var min,num:int64;
begin
  writeln('Vvedite chislo');
  readln(num);
  min:=num mod 10;
  while(num>0) do begin
    if(min>(num mod 10)) then min:=num mod 10;
    num:=num div 10;
  end;
  writeln(min);
  readln;
  end.