Переставить местами первую и последнюю цифру заданного натурального числа — Pascal(Паскаль)

uses crt;
var n,m,c1,cp:longint;
    k,i:byte;
begin
clrscr;
write('n=');readln(n);{например 12345}
cp:=n mod 10;{последняя цифра=5}
n:=n div 10;{число без последней цифры=1234}
m:=n;{запомним его}
k:=0;
while m>9 do{пока не останется 1 цифра}
 begin
  m:=m div 10;{первая цифра=1}
  k:=k+1;{количество разрядов без первого=4}
 end;
c1:=m;{запомним первую цифру=1}
for i:=1 to k do
 begin
  m:=m*10;{повышаем разряд числа, равного первой цифре=1000}
  cp:=cp*10;{повышаем разряд последней цифры=5000}
 end;
n:=(n-m)*10+c1+cp*10;{получаем число=(1234-1000)*10+1+5000*10=52341}
writeln('n2=',n);
readln
end.