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

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, end.