Получив на вход число х, этот метод печатает два числа К

Получив на вход число х, этот метод печатает два числа К и R. Укажите наименьшее из таких чисел х, при вводе которых метод печатает поначалу 4, а позже 3.
var x, i, K, R, y: integer;
begin
readln(x);
K := 0; R := 9;
y := x mod 10;
while x gt; 0 do begin
K := K + 1;
if R gt; x mod 10 then
R := x mod 10;
x := x div 10
end;
R := y - R;
writeln(K); writeln(R)
end.