Как вывести на экран трехзначное число. и чтобы оно переставляло цифры например 123-321.с паскали

Program zadacha;
var
   a,s:integer;
begin
   read(a);
   s:= (a mod 10) * 100 + ((a div 10) mod 10) *10 + a div 100;
   write(s);
end.