{$codepage UTF8} VAR a:char; b:widechar; BEGIN //primera parte b:='ñ'; //En BMP es #$00F1 a:=char(b); Writeln(a); //segunda parte a:=char(byte(b)); Writeln(a) END.