Дано целое N-разрядное число. Поменять местами первую и последнюю цифры в вашем числе — Pascal(Паскаль)

Program PascalGuru;

var
  a, b, c, x, y, z: integer; { описание переменных }

  { ------------------------------------- }
function Pow(x, y: integer): longint; { функция возводит число x в степень y }
var
  i, s: integer;
begin
  s := 1;
  for i := 1 to y do
    s := s * x;
  Pow := s;
end;
{ ------------------------------------- }

begin
  write('Введите число А: ');
  readln(a); { считывание с клавиатуры числа А }
  if a < 10 then { введённое число не должно быть меньше 10 }
  begin
    writeln('Ошибка '); { если меньше - то оповещаем об ошибке }
  end
  Else { если ошибки НЕТ - идёт обработка ниже }
  begin { ниже обработка по изменению 1 и последней цифры }
    y := a mod 10;
    x := a;
    b := 0;
    repeat
      x := x div 10;
      b := b + 1;
    until x div 10 = 0;
    c := a - x * Pow(10, b) + y * Pow(10, b) - y + x;
    writeln(c); { вывод преобразованного числа на экран }
  end;

  readln;

end.