переписать программу на С++ для Builder 6

[manohina10]

Думаю вам не сложно будет помоч. Необходимо переписать программу на С++ для Builder 6.

Procedure Draw(FName:String);
begin
 Assign(MF,Gen_Dir+'\Map\'+FName);
 reset(Mf);
 i:=0;
 While Not Eof(Mf) do
 begin
  read(Mf,Li,Fi);
  P[i]:=Point(x0+Trunc(Mx*Li),y0-Trunc(My*Fi));
  i:=i+1;
 end;
 Map.Canvas.Polygon(Slice(P,i));
 close(Mf);
end;

-------------------------------------------------------------

 
 Map:=TBitmap.Create;
 Map.Height:=X;
 Map.Width:=Y;

 Map.Canvas.Brush.Color:=RGB(20,20,20);
 Map.Canvas.Rectangle(0,0,Map.Width,Map.Height);

 Y0:=Trunc(Map.Height /2);
 X0:=Trunc(Map.Width  /2);

 My:=Map.Height/180;
 Mx:=Map.Width/360;

 Map.Canvas.Pen.Color:=clBlack;
 Map.Canvas.Brush.Color:=RGB(200,200,100);
 
 Draw('africa.con');
 Draw('australi.con');
 Draw('baffinov.con');
 Draw('eurasia.con');
 Draw('gaiti.con');
 Draw('greatbre.con');
 Draw('greenlan.con');
 Draw('honsu.con');
 Draw('iceland.con');
 Draw('kalimant.con');
 Draw('kuba.con');
 Draw('kuril.con');
 Draw('madagask.con');
 Draw('namerica.con');
 Draw('newfaund.con');
 Draw('newgvine.con');
 Draw('newzela1.con');
 Draw('newzelan.con');
 Draw('sahalin.con');
 Draw('samerica.con');
 Draw('shrilank.con');
 Draw('sicilia.con');
 Draw('sumatra.con');
 Draw('tasmania.con');
 Draw('yava.con');

Программа строит карту мира (по координатам границ материков)

[D@rkD@iver]

сделаю за умеренную плату