Перевести код с Delphi в C++ Builder

var
  fmBattle: TfmBattle;
  A,B,C:mas;
  D:rmas;
  Sh,Ch,ds:array[1..4]of integer;
  p,strg:integer;
  flag,nol:boolean;
  ds1,ds2:integer;
  State:integer;
  y,z,napr,o,pp,kp:integer;
  S:Set of byte;
  stt:File of rmas;
 
implementation
 
{$R *.dfm}
 
procedure InitMas(var A,B,C:mas);
var i,j:integer;
begin
  for i:=-1 to 10 do
    for j:=-1 to 10 do
      begin
        A[i,j]:=0;
        B[i,j]:=0;
        C[i,j]:=0;
      end;
  for i:=1 to 4 do
    begin
      Sh[i]:=5-i;
      Ch[i]:=5-i;
      Ds[i]:=5-i;
    end;
  p:=0;
  For j:=-1 to 10 do
    begin
      C[-1,j]:=-5;
      C[j,-1]:=-5;
    end;
end;
 
function check1(k,l,d,b:integer;A:mas):boolean;
var f:boolean;
    i,j:integer;
begin
  f:=TRUE;
  Case b of
    1:begin
        f:=True;
        i:=k-1;
        while f and (i<=k+d+1) do
          begin
            j:=l-1;
            while f and (j<=l+1) do
              begin
                f:=(A[j,i]=0);
                j:=j+1;
              end;
            i:=i+1;
          end;
      end;
    2:begin
        f:=True;
        j:=l-1;
        while f and (j<=l+d+1) do
          begin
            i:=k-1;
            while f and (i<=k+1) do
              begin
                f:=(A[j,i]=0);
                i:=i+1;
              end;
            j:=j+1;
          end;
      end;
  end;
  check1:=f;
end;
 
function check2(k,l,d,b:integer):boolean;
var f:boolean;
begin
  f:=TRUE;
  Case b of
    1:f:=(k+d<=9);
    2:f:=(l+d<=9);
  end;
  check2:=f;
end;
 
function check3(d:integer):boolean;
begin
  check3:=(Sh[d+1]>0);
end;
 
procedure GetB(var B:mas);
var k,l,i,j,t,p:integer;
    f1,f2,f3,f4:boolean;
begin
  Randomize;
  f1:=False;
  f2:=False;
  f3:=False;
  f4:=False;
  repeat
    k:=Random(10);
    l:=Random(10);
    p:=Random(2)+1;
    if check1(k,l,3,p,B)and check2(k,l,3,p)
       then
        begin
          Case p of
            1: for t:=k to k+3 do
                 B[l,t]:=4;
            2: for t:=l to l+3 do
                 B[t,k]:=4;
          end;
          dec(Ch[4]);
          f4:=True;
        end;
  until f4;
 
  for i:=1 to 2 do
    begin
      f3:=False;
      Repeat
        k:=Random(10);
        l:=Random(10);
        p:=Random(2)+1;
        if check1(k,l,2,p,B)and check2(k,l,2,p)
           then
            begin
              Case p of
                1: for t:=k to k+2 do
                     B[l,t]:=3;
                2: for t:=l to l+2 do
                     B[t,k]:=3;
              end;
              dec(Ch[3]);
              f3:=True;
            end;
      until f3;
    end;
 
    for i:=1 to 3 do
    begin
      f2:=False;
      Repeat
        k:=Random(10);
        l:=Random(10);
        p:=Random(2)+1;
        if check1(k,l,1,p,B)and check2(k,l,1,p)
           then
            begin
              Case p of
                1: for t:=k to k+1 do
                     B[l,t]:=2;
                2: for t:=l to l+1 do
                     B[t,k]:=2;
              end;
              dec(Ch[2]);
              f2:=True;
            end;
      until f2;
    end;
 
  for i:=1 to 4 do
    begin
      f1:=False;
      Repeat
        k:=Random(10);
        l:=Random(10);
        p:=Random(2)+1;
        if check1(k,l,0,p,B)and check2(k,l,0,p)
           then
            begin
              Case p of
                1: B[l,k]:=1;
                2: B[l,k]:=1;
              end;
              dec(Ch[1]);
              f1:=True;
            end;
      until f1;
    end;
end;
 
function mru(k,l:integer;B:mas):integer;
begin
  if (B[l,k]<=0)
     then
      mru:=0;
  if (B[l,k]>0)
     then
      mru:=1;
end;
 
procedure TfmBattle.FormActivate(Sender: TObject);
var i,j:integer;
begin
  if Fileexists('f1.stt')
    then
     begin
  AssignFile(stt,'f1.stt');
  Reset(stt);
  Read(stt,D);
  CloseFile(stt);
     end
    else
     for i:=0 to 9 do
       for j:=0 to 9 do
         D[i,j]:=0;
  nol:=true;
  shape5.Brush.Color:=rgb(238,180,34);
  shape6.Brush.Color:=rgb(205,38,38);
  for i:=0 to 210 do
   for j:=0 to 210 do
     begin
       myField.Canvas.Pixels[i,j]:=clAqua;
       cField.Canvas.Pixels[i,j]:=clAqua;
     end;
  for j:=0 to 210 do
    begin
      myField.Canvas.Pixels[j,0]:=clNavy;
      myField.Canvas.Pixels[0,j]:=clNavy;
      cField.Canvas.Pixels[j,0]:=clNavy;
      cField.Canvas.Pixels[0,j]:=clNavy;
      myField.Canvas.Pixels[j,209]:=clNavy;
      myField.Canvas.Pixels[209,j]:=clNavy;
      cField.Canvas.Pixels[j,209]:=clNavy;
      cField.Canvas.Pixels[209,j]:=clNavy;
    end;
  i:=21;
  While i<=210 do
    begin
      For j:=1 to 210 do
        begin
          myField.Canvas.Pixels[i,j]:=clNavy;
          cField.Canvas.Pixels[i,j]:=clNavy;
          myField.Canvas.Pixels[j,i]:=clNavy;
          cField.Canvas.Pixels[j,i]:=clNavy;
        end;
      i:=i+21;
    end;
  InitMas(A,B,C);
  GetB(B);
  ds1:=0;
  ds2:=0;
  S:=[];
  o:=1;
  pp:=2;
end;