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

var a,b:integer;beginreadln(a);b:=abs(a);b:=b mod 10*10 + b div 10;if a<0 then b:=-b;writeln(b);end.Пример:2552