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

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 xy 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.