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

Program Integer8;

var
  a, r, l, p: integer;

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

end.