Код на паскале в с++

[werser]

Здраствуйте помогите пожалуйста перевести код из паскаля на с++...
Проблема с синтаксисом указателей, вот тут

((a shr i) and $01)

, еще здесь

type bytearr=array[1..100] of byte;

Program LAB1;
uses crt;
Procedure WriteByte(a:byte);
var i:integer;
begin
for i:=7 downto 0 do begin
if ((a shr i) and $01) <>0 then write('1')
else write('0');
end;
write(' ');
end;

type bytearr=array[1..100] of byte;
var
k,i:integer;
db : double;
str:string[10];
px: pointer;
bp :^bytearr;
iarr:array[1..5] of integer;
begin
clrscr;
db:=13.65;
px:=@db;
bp:=px;
writeln('Tup DOUBLE. 4uslo - ',db:0:2);
for k:=1 to 8 do writebyte(bp^[k]);
writeln;
readln;
end.