Переделать код с Delphi на C++
собственно прощу помощи в переделывании кода с делфи на с++
const maxSumm = 500 + 2;
maxN = 200 + 2;
function TForm1.getRes(n:integer;sum:integer):double;
var
arr: array [0..MaxSumm, 0..maxN] of double;
currN: Integer;
currSumm: Integer;
prev: integer;
begin
for CurrN := 0 to MaxN do
for CurrSumm := 0 to MaxSumm do
arr[sum,n] := 0;
arr[0,0] :=1;
for currN := 1 to n do
for currSumm := 1 to sum do
for prev := 1 to 6 do
if currSumm - prev >= 0 then
arr[CurrSumm,currN] := arr[CurrSumm,currN] + (arr[CurrSumm - prev,currN-1] / 6.0);
getRes := arr[sum,n]; end;