Дано натуральное число N. Получить новое число М, которое образуется из числа N путем замены последней цифры на наименьшую (программа Паскаль)

uses crt;
var n,m,mn:integer;
begin
write('n=');
read(n);
m:=n;
mn:=9;
while m>0 do
 begin
  if m mod 10<mn then mn:=m mod 10;
  m:=m div 10;
 end;
n:=n-n mod 10+mn;
write(n);
end.