Дано натуральное число n. получить новое число м, которое образуется из числа n путем замены последней цифры на значение наибольшей цифры в записи числа n. пример. n= 128 452, м= 128 458. на pascal abc

Var i,max: Integer;
n,m: String;
begin
max:=0;
readln(n);
for i:=1 to length(n) do
begin
if max<n[i] then max:=n[i];
end;
m:=n;
m[length(m)]:=max;
writeln(m);
end.