Дано число. Поменять первую и последнюю цифру местами, если они не равны друг другу. Паскаль)

program qq; var a, x, y, count, i: integer; begin   writeln('Введите число');   readln(a);   x:=a mod 10;   y:=a;   count:=0;   while(y>9) do   begin     y:=y div 10;     count:=count+1;   end;   if x<>y then   begin     a:=a-x+y;     for i:=1 to count do     begin       x:=x*10;       y:=y*10;     end;     a:=a-y+x;     writeln('Получено число:');     writeln(a);   end   else     writeln('Первая и последняя цифра одинаковые.'); end. Как вариант) Может, не совсем эффективно, но работает.