Дано целое число. Найти наименьшее четное из набора. То есть если число 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.