Переписать алгоритм с Pascal на C++

var a:array[1..200,1..200] of byte;
bil:array[1..200] of boolean;
put,d:array[1..300] of integer;
i,n,j,p,na,kon,dl,odl,kz:integer;
f:text;
procedure enter;
var i,j:integer;
begin
  read(n);
  for i:=1 to n do
     begin
        for j:=1 to n do
          read(a[i,j]);
    end;
end;
 
procedure print;
var i,j:integer;
begin
  for i:=1 to n do
    begin
       for j:=1 to n do
          write(a[i,j],' ');
       writeln;
    end;
end;
procedure poisk(ng,kg,c:integer);
var ii:integer;
begin
    if ng=kg then begin
                            write('Путь:'); dl:=odl;
                            for ii:=1 to c-1 do
                               begin
                                 d[ii]:=put[ii];
                                 kz:=c-1;
                                 write(put[ii],' ');
                               end;
                            writeln('dl=',dl)
                        end
    else begin
              for ii:=1 to n do
                if (a[ng,ii]<>0) and (bil[ii]<>true) and((dl=0)or(odl+a[ng,ii]<dl)) then
 
                   begin
                       put[c]:=ii;
                       bil[ii]:=true;
                       odl:=odl+a[ng,ii];
                       poisk(ii,kg,c+1);
                       put[c]:=0;
                       bil[ii]:=false;
                       odl:=odl-a[ng,ii];
                   end;
          end;
end;
procedure enterparam;
var i,j:integer;
begin
  write('введите начальную и конечную вершины');
  readln(na,kon);
  for i:=1 to n do
      bil[i]:=false;
  put[1]:=na;
  bil[na]:=true;
  p:=1; dl:=0;
  poisk(na,kon,p+1);
end;
begin
  enter;
  print;
  enterparam;
  write('Путь:');
  for i:=1 to kz do
     write(d[i],' ');
  writeln('длина равна ',dl);
end.