Если внимательно прочитать условие задачи, то становится понятно, что вторая цифра числа меняется с третьей и нужно поменять их снова.
var
a, b, c, n, x: integer;
begin
Write('Введите число n -> ');
Readln(n);
a := n div 100;
c:=(n div 10) mod 10;
b:=n mod 10;
x:=100*a+10*b+c;
Writeln(x);
end.
Тестовое решение:
Введите число n -> 482
428