перевести код из паскаля в С++

program Terri;
uses crt;
const m=100;   // Максимальный размер массива
var
mg:array[1..m,1..m] of byte;    // Матрица смежности
stack:array[1..m-1] of word;    // Стек
i,j:word;
column,row:word;   
sp:word;   // номер последнего элемента в стеке 
vs,vf:word;
n: word;   // Реальный размер матрицы смежности
begin
clrscr;
write('Input size matrix: ');
read(n);
clrscr;
for i:=1 to n do
for j:=1 to n do
if i=j then
mg[i,j]:=0    // Диагональным элементам присваивается ноль
else
begin
write('mg(',i,',',j,') = ');
read(mg[i,j]);
clrscr;
end;
write('Input Start: ');       // Вводим начальную вершину
read(vs);
write('Input Finish: ');   // Вводим конечную вершину
read(vf);
row:=vs;             // Начальное значение строки
column:=1;
sp:=0;           // Стек пустой
while row<>vf do
if mg[row,column]=1 then   // Если элемент единичный
begin
mg[row,column]:=0;     // то заменить его
if mg[column,row]=1 then   // ,а, если надо, то и симметричный ему
mg[column,row]:=0;
sp:=sp+1;        // указатель на вершину стека сместить
stack[sp]:=row;  // положить в стек номер строки
row:=column;   // строка принимает значение столбца
column:=1;   // столбец сбрасывается
end
else
if column=n then   // Если все элементы нулевые
begin
row:=stack[sp];   // вытащить из стека
sp:=sp-1;   // сместить указатель
column:=1;   // сбросить столбец
end
else
column:=column+1;   // перейти к другому столбцу
sp:=sp+1;        
stack[sp]:=row;    //  положить в стек конечный элемент
writeln;
write('Path : ');
for i:=1 to sp do
write(' ',stack[i]);   // Вывести на экран содержимое стека
readln;
end.