Вводится число. Преобразовать его в другое число, цифры которого будут следовать в обратном порядке

Program u9;
var 
   n: longint;
begin   
   n:=2;   
   while n>0 do     
        begin       
            write(n mod 10);       
            n:=n div 10;     
        end;
end.