a[0] := s[1] - '0'; if (a[0] > '9') a[0] := a[0] + '0' - 'A' + 10; a[1] := s[2] - '0'; if (a[1] > '9') a[1] := a[1] + '0' - 'A' + 10; a[0] := a[0] shl 4 + a[1];