Дано натуральное число n<=9999. Поменять порядок следования цифр - Pascal(Паскаль)

{Дано натур число n<=9999. Поменять порядок следования цифр.}
program borlpasc;
var s,x:integer;
begin write('введите число=');
      readln(x);
      s:=0;
      repeat s:=s*10+x mod 10;
             x:=x div 10
      until x=0;
      writeln(s)
end.