Перевести программу с Pascal на C#

uses crt;
type matr=array[1..100,1..100] of integer;
     gor=array[1..100] of integer;
var s:matr;
Q,goroda:gor;
 
i,n,m,t,i_st,i_end,A,B:integer;
 
procedure matr_smezh;
var i,j:integer;
begin
randomize;
for i:=1 to n do
begin
     for j:=1 to n do
     begin
     s[i,j]:=random(2);
     end;
end;
for i:=1 to n do
begin
s[i,i]:=0;
for j:=1 to n do
begin
s[j,i]:=s[i,j];
end;
end;
end;
 
procedure vuvod();
var i,j:integer;
begin
for i:=1 to n do
begin
     for j:=1 to n do
     begin
     write(s[i,j],'   ');
     end;
writeln;
end;
end;
 
procedure poisk;
var i:integer;
begin
goroda[A]:=200;
Q[1]:=A; i_st:=1; i_end:=2;
while i_st<i_end do begin
for i:=1 to n do
if (goroda[i]=0) and (s[Q[i_st],i]=1) then begin
Q[i_end]:=i; inc(i_end); goroda[i]:=Q[i_st];
end;
inc(i_st);
end;
end;
 
procedure vuvod_res();
var i:integer;
begin
if goroda[B]=0 then writeln('Пути нет')
else
begin
Q[1]:=B; i_end:=2; t:=goroda[B];
while t<>A do begin
Q[i_end]:=t; inc(i_end); t:=goroda[t];
end;
Q[i_end]:=A;
for i:=i_end downto 1 do write(Q[i],' ');
end;
end; 
 
begin
clrscr;
writeln ('Введите количество вершин графа');
readln(n);
writeln('Введите количество непроходимых вершин');
readln(m);
writeln('Введите вершины');
for i:=1 to m do begin
readln(t); goroda[t]:=-1;
end;
matr_smezh;
writeln('матрица смежности');
vuvod();
writeln;
for i:=1 to n do 
if goroda[i]=-1 then write(i,' ');
writeln;
writeln ('Введите номер вершины А');
read(A);
writeln ('Введите номер вершины B');
read(B);
poisk;
writeln;
vuvod_res();
writeln;
readln;
end.