Przetłumaczy mi to ktoś ?? HLEP

Witam !
Może mi to ktoś przetłumaczyć na C++.

procedure hexuj()
begin
Var
  Buf: Array [1..100000] of Byte;                
  Numer:Integer;                            
  i : Integer;
  Hex : String;  

AssignFile(Plik, 'C:\config.dat');
Reset(Plik);                          

Hex:='';
Poz:=0;
BlockRead(Plik, Buf,SizeOf(Buf), Readed);

while Poz <= Readed do
begin
    If(Buf[Poz-2]=Ord('r'))AND(Buf[Poz-3]=Ord('e') then
    begin
        while(i >= 1)
        begin
            Numer:=Buf[Poz+i];
            Hex:=Hex+IntToHex(Numer, 1); 
            i--;
        end;
    end;
Inc(Poz);
end;

Numer := StrToInt('$'+Hex);
Numerek.Text:=IntToStr(Numer);

end;

Dzięki all za pomoc....

// hlep, chleb, czy help? ;-) - ŁF