если кто может переведите программу из pascal в C#

[medved2800]

Дана целочисленная прямоугольная матрица. Определить: • количество строк, содержащих хотя бы один нулевой элемент; • номер столбца, в котором находится самая длинная серия одинаковых элементов.

program L5var3;
 const n=4;m=4;
 type mass=array [1..n] of integer;
 type mass2=array [1..n,1..m] of integer;
 var a:mass2;
 
 function kst0(a:mass2):integer;
 var i,j,l,k:integer;
 begin
 l:=0;k:=0;
 for j:=1 to m do
 begin
 k:=0;
 for i:=1 to n do
 if a[i,j]=0 then k:=k+1;
 if k>0 then l:=l+1
 end;
 kst0:=l
 end;
 
 procedure vvod(var a:mass2);
 var i,j:integer;
 begin
 writeln('Vvedi matricu razmerom ',n,' na ',m,' elementov.');
 for i:=1 to n do
 for j:=1 to m do
 a[i,j]:=Random(50);
 begin
 writeln('Element # ',i,' ',j);
 readln(a[i,j])
 end;
 writeln ('Vvedennaya matrica:');
 for i:=1 to n do
 begin
 for j:=1 to m do
 write (a[i,j],' ');
 writeln
 end;
 end;
 
 procedure poisk(a:mass2);
 var i,j,q,w,r,t:integer;
 begin
 w:=1;r:=0;
 for i:=1 to n do
 begin
 q:=1;t:=1;
 for j:=1 to m-1 do
 if a[i,j]=a[i,j+1] then
 begin
 t:=t+1;
 if t>q then q:=t
 end
 else t:=1;
 if q>w then
 begin
 r:=i;
 w:=q
 end;
 end;
 if w=1 then writeln('V matrice net strok s podryad idushimi odinak. el-mi')
 else begin
 writeln('Nomer iskomoy stroki = ',r);
 writeln('Kolichestvo podryad povtoryayushihsya elementov = ',w)
 end;
 end;
 
 begin
 vvod(a);
 poisk(a);
 writeln('Kolichestvo stolbcov s hotyabi odnim 0-elementom = ',kst0(a));
 readln
 end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.