ПОмогите с задачкой пожалуйста. Поменять местами первую и последнюю цифры в натуральном числе N с помощью паскаля

Var
a,a1,a2,a3,a4:integer;
Begin
writeln('chislo');
readln(a);
a1:=a div 100;
a2:=a mod 10;
a3:=(a mod 100) div 10;
a4:=a2*100+a3*10+a1;
writeln('a4= ',a2*100+a3*10+a1);
End.