Дано трёхзначное число, поменять местами сотни и единицы и сравнить эти числа?

Var a, b, c: integer;

begin

readln (a);

b : = (a mod 10 * 100) + (a mod 100 div 10 * 10) + (a div 100);

if (a > b) then

writeln (a, ' > ', b)

else if (a = b) then writeln (a, ' = ', b)

else writeln (a, ' < ', b);

end.