Помогите решить задачу. Поменять местами первую и последнюю цифру натурального числа. решение в паскале. Тема while, repeat. Подробно, понятно пжлст

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