Составить программу перестановки первой и последней цифр введенного четырех значного числа

Var a,a1:integer;
begin
readln(a);
a1:=a mod 10;
a:=a1*1000+(a mod 1000-a1)+(a div 1000);
writeln(a);
end.

Пример:
8391
1398