Дано натуральное число N. Получить новое число М, кото­рое образуется из числа N путем замены последней цифры на значение наибольшей цифры в записи числа N. Пример. N= 128 452, М= 128 458.
На Pascal ABC

var i,max: Integer;n,m: String;beginmax:=0;readln(n);for i:=1 to length(n) dobeginif max<n[i] then max:=n[i];end;m:=n;m[length(m)]:=max;writeln(m);end.