Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево — Pascal(Паскаль)

Program Integer12;

var
  x, a, b, c, p: integer;

begin
  Writeln('Введите число a');
  readln(x);
  a := x div 100;
  b := (x div 10) mod 10;
  c := x mod 10;
  p := c * 100 + b * 10 + a;
  Writeln('Перестановленное местами =', p);

end.