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.
Как вариант) Может, не совсем эффективно, но работает.