Составить программу pascal, которая вводит четырёхзначное число и выводит число-перевертыш (пример: 1234 - 4321)

Program n1;
var a: integer;
begin
readln(a);
write(a mod 10, (a mod 100) div 10, (a div 100) mod 10,a div 1000);
end.