3D Studio Max - problema con mostrarlar alfabeticamente

program ordenarLetras;

var

  letra1, letra2, letra3: char;

begin

  writeln('Ingrese tres letras mayusculas: ');

  readln(letra1, letra2, letra3);

  // Comparar y ordenar las letras

  if letra1 > letra2 then

  begin

    // Intercambiar letra1 y letra2

    letra1 := letra1 xor letra2;

    letra2 := letra1 xor letra2;

    letra1 := letra1 xor letra2;

  end;

  if letra2 > letra3 then

  begin

    // Intercambiar letra2 y letra3

    letra2 := letra2 xor letra3;

    letra3 := letra2 xor letra3;

    letra2 := letra2 xor letra3;

  end;

  if letra1 > letra2 then

  begin

    // Intercambiar letra1 y letra2

    letra1 := letra1 xor letra2;

    letra2 := letra1 xor letra2;

    letra1 := letra1 xor letra2;

  end;

  writeln('Las letras ordenadas alfabeticamente son: ', letra1, letra2, letra3);

  readln;

end.