{$codepage utf8} function OrdenBytes:boolean; Var n:longint; p:^byte; Begin n:=1; p:=@n; OrdenBytes:=false; if p[0]=1 then OrdenBytes:=true End; Begin if OrdenBytes then Writeln('Little Endian') else Writeln('Big Endian') End.