дано трехзначное число вывести число полученное при перестановке цифр сотен и десятков исходного числа

Вот код программы:
Program Integer15;
var x,a,b,c,p:integer;
begin
writeIn('Введите число а');
readIn(x);
a:=x div 100;
b:=(x div 10)mod 10;
c:=x mod 10;
p:=b*100+a*10+c;
WriteIn ('Перестановленное местами =',p);
end.