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

Program qq;
var a, x, y, count, i: integer;
begin
  writeln('Введите число');
  readln(a);
  x:=a mod 10;
  y:=a;
  count:=0;
  while(ygt;9) do
  begin
    y:=y div 10;
    count:=count+1;
  end;
  if xlt;gt;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('1-ая и заключительная цифра одинаковые.');
end.
Как вариант) Может, не совершенно отлично, но работает.