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

uses crt;
var k,n,p:longint;
f,l:integer;
 
begin
 clrscr;
 write('N-> ');
 readln(N);
 p := 1;
 K := N;
 l := K mod 10;
 while K>=10 do
 begin
  p:=p*10;
  K:=K div 10;
 end;
 f := K;
 N := N-f*p-l+l*p+f;
 writeln(N);
 readln;
end.