Сортировки массивов из Pascal в C#

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j:byte;
    kol,num:integer;
procedure vvod;
var i,j:byte;
begin
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(50)+1;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
end;
{поиск номеров элементов для сравнения и обмена}
procedure n_elem(var x,y:byte;num:integer);
var i,np,xp,xl,yv,yn:byte;
    j:integer;
procedure next_elem;{маршрут поиска}
begin
 case np of{направления 1-вправо, 2-вниз, 3-влево, 4-вверх}
 1: begin x:=x+1; if x=xp then np:=2; end;
 2: begin y:=y+1; if y=yn then np:=3; end;
 3: begin x:=x-1; if x=xl then np:=4; end;
 4: begin y:=y-1; if y=yv then np:=5; end;
 end;
j:=j+1;{считаем шаги}
if np=5 then exit;{вернулись в левый верхий угол}
end;
begin
x:=0;y:=1;{начало пути слева от матрицы в первой строке}
np:=1;{первое направление}
xl:=1;xp:=m;yv:=1;yn:=n;{обозначим края}
j:=0;{обнулим счетчик}
for i:=1 to num do next_elem;{начинаем поиск}
end;
{чтение элемента}
procedure out_el(num:integer;var out_el:integer);
var x,y:byte;
begin
  n_elem(x,y,num);
  out_el:=a[y,x];
end;
{вставка элемента}
procedure in_el(num:integer;k:integer);
var x,y:byte;
begin
  n_elem(x,y,num);
  a[y,x]:=k;
end;
{Собственно сортировка линейным обменом}
procedure sort;
var i,j:byte;
    k,u:integer;
begin
for i:=1 to kol-1 do{идем по маршруту}
for j:=i+1 to kol do{смотрим впереди}
  begin
    out_el(i,k);{читаем первый}
    out_el(j,u);{второй}
    if k>u then{если первый больше}
      begin
       in_el(i,u);{второй на место первого}
       in_el(j,k);{первый на место второго}
      end;
   end;
end;
{Вывод}
procedure vyvod;
begin
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
end;
 
begin
clrscr;
randomize;
vvod;
kol:=2*(n+m-2);{длина маршрута по периметру}
writeln('Сортировка: ');
sort;
vyvod;
readln;
end.