Перевод с паскаля на си шарп

[burkovich]

Здравствуйте, можете перевести пожалуйста программу с паскаля на си гарп
паскаль :

program DepthFirstSearch;
uses crt;
const
n=4;
var
i, j, start: integer;
visited: array[1..n] of boolean;
const graph: array[1..n,1..n] of byte =
((0, 1, 1, 0),
(0, 0, 1, 1),
(0, 0, 0, 1),
(0, 0, 0, 0));
{поиск в глубину}
procedure DFS(st: integer);
var r: integer;
begin
write(st:2);
visited[st]:=true;
for r:=1 to n do
if (graph[st, r]<>0) and (not visited[r]) then
DFS(r);
end;
{основной блок программы}
begin
clrscr;
writeln('Матрица смежности:');
for i:=1 to n do
begin
visited[i]:=false;
for j:=1 to n do
write(graph[i, j],' ');
writeln;
end;
write('Стартовая вершина » '); read(start);
writeln('Результат обхода'); DFS(start);
end.

Я пробовал сам, но работает неправильно
си шарп:

 Console.WriteLine("Введите количество вершин");
            int ver = Convert.ToInt32(Console.ReadLine());
            bool[] array = new bool[ver];
            int[,] graph = new int[ver, ver];
            Console.WriteLine("Введите матрицу смежности");
            for (int i=0; i<ver; i++)
            {
                Console.Write($"вершина {i + 1}: ");
                for (int k=0; k<ver; k++)
                {
                  graph[i, k] = Convert.ToInt32(Console.Read());
                }
            }
            
            int e = 0;
          
            for (int st = 0; st < ver; st++)
            {
                array[e] = true;
                Console.Write($"вершина {st + 1}: ");
                for (int r = 0; r < ver; r++)
                {
         
                    if (graph[e, r] != 0 && !array[r])
                    {
                        e = r;
                        Console.Write(e);
                    }
                   

                }

            }

[BDA]

Не хватает рекурсии. Или делайте как в исходном коде функцию, или заведите стек, чтобы не терять информацию о непроверенных ребрах (почитайте про варианты алгоритма - DFS).

[burkovich]

я не знаю что такое рекурсия и с функциями работать не умею ещё (

[WorldMaster]

Сообщение от burkovich

рекурсия и с функциями работать не умею ещё

Так может сначала изучить основы языка а потом пытаться что то в нем реализовать??

[burkovich]

WorldMaster, я пытался разобраться, но не получилось
ладно, спасибо за помощь

[WorldMaster]

Сообщение от burkovich

ладно, спасибо за помощь

Непонятно какой помощи вы хотели если вам неизвестны даже базовые элементы. Вам вроде подсказали что делать. Используйте рекурсию.

А если вы хотели чтобы все сделали за вас то в раздел фриланс надо было обращаться.