Дано двузначное число. Получить число образованное при перестановке цифр заданного числа - Pascal

Формулировка задачи:

дано двузначное число.получить число образованное при перестановке цифр заданного числа. Прошу вашей помощи с решением

Решение задачи: «Дано двузначное число. Получить число образованное при перестановке цифр заданного числа»

Листинг программы

var
  x: integer;
 
begin
  repeat
    Write('Введите двузначное число: ');
    Readln(x)
  until x in [10..99];
  Writeln(x mod 10, x div 10);
  Readln
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Создается переменная x типа integer, которая будет использоваться для хранения введенного двузначного числа.
Запускается цикл repeat, который будет повторяться до тех пор, пока введенное число не будет находиться в диапазоне от 10 до 99 (включительно).
Внутри цикла считывается введенное число с помощью функции Readln().
Выводится сообщение Введите двузначное число: для того, чтобы пользователь понимал, что нужно ввести двузначное число.
С помощью оператора % (остаток от деления) извлекаются цифры введенного числа.
С помощью оператора / (деление) извлекается первая цифра введенного числа.
Выводится результат деления первой цифры на 10 (с помощью функции Writeln()).
Выводится остаток от деления первой цифры на 10 (с помощью функции Writeln()).
Выводится введенное двузначное число (с помощью функции Writeln()).
Пользователю предлагается ввести еще одно двузначное число, если он нажал Enter. Если пользователь нажал Esc, то цикл прерывается.
Конец программы.