Перевод с Делфи на C++

[Anubys]

Помогите пожалуйста перевести эти два кода, это если не ошибаюсь Делфи

procedure push(const n: longint);
 1  t := t + 1;
 2  stack[t] := n;
 3  visited[n] := 1;
function pop;
 1  t := t - 1;     
 2  pop := stack[t];
procedure DFS(adjMatrix: array [0..20] of longint);
 1  for i := 0 to n - 1 do visited[i] := 0;
 2  for i := 0 to n - 1 do begin
 3      if (visited[i] <> 1) then begin
 4          t := 0;
 5          push(i);
 6          flag := false;
 7          while t > 0 do begin
 8              if flag then k := pop else k := stack[t];
 9              flag := true;
10              for i := 0 to n - 1 do
11                  if (adjMatrix[k, j] > 0) and (visited[j] <> 1) and flag then begin
12                      push(j);
13                      flag := false;
14                  end;
15          end;
16      end;
17  end;

procedure push(const n: longint);
 1  queue[head] := n;
 2  head := head + 1;        
 3  visited[n] := 1;
function pop;
 1  pop := queue[tail];
 2  tail := tail + 1; 
procedure BFS(adjMatrix: array [0..20] of longint);
 1  for i := 0 to n - 1 do visited[i] := 0;
 2  for i := 0 to n - 1 do begin
 3      if (visited[i] <> 1) then begin
 4          push(i);
 5          while tail <> head do begin
 6              k := pop;
 7              for i := 0 to n - 1 do
 8                  if (adjMatrix[k, j] > 0) and (visited[j] <> 1) then
 9                      push(j);
10          end;
11      end;
12  end;