Какое из двух чисел будет больше, если в обоих числах переставить крайние цифры?

const
  z = 1000000;
 
var
  v, t: array[1..z] of integer;
  a, a1, b, b1, n, m, i, p, x: integer;
  g, h: real;
 
function ammountOfDigit(x: integer): integer;
var
  i, c: integer;
begin
  repeat
    c := x mod 10;
    inc(i);
    x := x div 10;
  until (x = 0);
  ammountOfDigit := i;
end;
 
begin
  read(a, b);
  a1 := a;b1 := b;
  n := ammountOfDigit(a);
  m := ammountOfDigit(b);
  begin
    if a < 0 then
      a := -a; 
    repeat
      inc(i);
      v[i] := (a mod 10);
      a := a div 10;
    until a = 0;
  end;
  i := 0;
  begin
    if b < 0 then
      b := -b; 
    repeat
      inc(i);
      t[i] := (b mod 10);
      b := b div 10; 
    until b = 0;
  end;
  i := v[n];
  v[n] := v[1];
  v[1] := i;
  i := t[m];
  t[m] := t[1];
  t[1] := i;
  for i := n downto 2 do
  begin
    begin
      p := 1;
      for x := 1 to i - 1 do 
        p := p * 10;
    end;
    g := g + v[i] * p;
  end;
  g := g + v[1];
  for i := m downto 2 do
  begin
    begin
      p := 1;
      for x := 1 to i - 1 do 
        p := p * 10;
    end;
    h := h + t[i] * p;
  end;
  h := h + t[1];
  if g > h then
    write('Число(', a1, ')- ', g, ' > ', h, ' -(', b1, ')')
  else if h > g then
    write('Число(', b1, ')- ', h, ' > ', g, ' -(', a1, ')')
  else write('Числа(', a1, ')- ', g, ' и ', h, ' -(', b1, ') равны.');
end.