kcpmtk/test.pas

program test;

{$I 'binary.inc'}

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

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