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

Пример. N=128452, M=129451

uses crt;
var n,m,k:longint;
    c,mn:byte;
begin
clrscr;
write('n=');
readln(n);
k:=n;
mn:=9;
while k>0 do
 begin
  c:=k mod 10;
  if c<mn then mn:=c;
  k:=k div 10;
 end;
m:=(n div 10)*10+mn;
write('m=',m);
readln
end.