Cambio de bits en un caracter

program oienoh;

var aux, aux1,aux2 : Integer;
  mascara: Integer;
  caux : Char;
  c,c1 : Integer;

begin
 readln(caux);
 c:=ord(caux);
 mascara:=1; mascara:=(mascara shl 3)+1; mascara:=(mascara shl 1)+1;
 mascara:=(mascara shl 2)+1;
 c1:=c xor mascara;
 c1:=c1 and mascara;
 aux:=c and (not mascara);
 aux1:=aux shr 4;
 aux2:=aux shl 4;
 aux:=aux1 or aux2;
 c1:=c1 or aux;
 caux:=chr(c1);
 writeln(caux);
 readln
end.