Если внимательно прочитать условие задачи, то становится понятно, что вторая цифра числа меняется с третьей и нужно поменять их снова.

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