program test;

type
   ByteString =  String[2];

{$I 'binary.inc'}

var
   bstr	: String[2] = '41';
   bval	: Byte;

begin
   bval := ReadByte(bstr);
   Writeln('hello', Char(bval));
end.