program Project1;
uses sysutils;
const
cKey : array [1..8] of Byte = ($83,$10,$48,$68,$D0,$71,$C1,$B2);
cStr : string = '83104868D071C1B2';
var
sKey : array[1..8] of Byte;// absolute cKey;
vCntr :Integer;
begin
sKey[1] := StrToInt('$' + cStr[01] + cStr[02]);
sKey[2] := StrToInt('$' + cStr[03] + cStr[04]);
sKey[3] := StrToInt('$' + cStr[05] + cStr[06]);
sKey[4] := StrToInt('$' + cStr[07] + cStr[08]);
sKey[5] := StrToInt('$' + cStr[09] + cStr[10]);
sKey[6] := StrToInt('$' + cStr[11] + cStr[12]);
sKey[7] := StrToInt('$' + cStr[13] + cStr[14]);
sKey[8] := StrToInt('$' + cStr[15] + cStr[16]);
writeln('cstr : ', cStr[1], cStr[2], ',', cStr[3], cStr[4], ',', cStr[5], cStr[6], ',',cStr[7], cStr[8], ',',
cStr[9], cStr[10],',', cStr[11],cStr[12],',', cStr[13],cStr[14],',',cStr[15],cStr[16] );
WriteLn('sKey : ', IntToHex(sKey[1], 2),',', IntToHex(sKey[2], 2),',', IntToHex(sKey[3], 2),',', IntToHex(sKey[4],2), ',',
IntToHex(sKey[5], 2),',', IntToHex(sKey[6], 2),',', IntToHex(sKey[7], 2),',', IntToHex(sKey[8],2) );
ReadLn;
end.