Помогите решить задачу. Поменять местами первую и последнюю цифру натурального ч?

Var   a, n: longint; begin   write('Введите число: ');   readln(a);   n := 1;   while a div (n * 10) > 0 do     n := n * 10;   a := a mod 10 * n + a mod n div 10 * 10 + a div n;   writeln('Поменяли первую и последнюю цифру:', a); end. Тестовое решение: Введите число: 12345 Число после преобразования:52341