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

Var n,m,k1,k2,p:integer;
begin
write('n = '); readln(n);
k1:=n mod 10; //последняя цифра
k2:=n; p:=1;
while k2>9 do
 begin
 k2:=k2 div 10; // первая цифра
 p:=p*10;    // нужная степень числа 10
 end;
m:=k1*p+(n mod p - k1)+k2;
writeln('m = ',m);
end.

Пример:
n = 326901574
m = 426901573