Сортировка в многомерном массиве

for i:=0 to High(mas) do
    for j:=0 to High(mas) do
      begin
        mas[i,j]:=random(90);
        strMas.Cells[j,i]:=IntToStr(mas[i,j]);
               strRez.Cells[j,i]:='0';
      end;
  for j:=0 to k-1 do
    begin
      kol:=0;       for i:=k to n-1-j do
        inc(kol);
      SetLength(m,kol);       pos:=0;
             for a:=k to n+j+1 do
          begin
            m[pos]:=mas[n+j+1,a];
            inc(pos);
          end;
      for b:=1 to kol-1 do
        for c:=0 to b-1 do
          if m[b]>m[c] then
            begin
              p:=m[b];
              for l:=b-1 downto c do
                m[l+1]:=m[l];
              m[c]:=p;
            end;
        for l:=0 to k-j-1 do
          strRez.Cells[l+k,n+j+1]:=IntToStr(m[l]);
    end;
end;

procedure TForm1.cmdRunClick(Sender: TObject);
var        //Объявляем переменные
  i,j,kol,k,a,pos,p,l,b,c:Word;
  mas:array of array of Word;
  m:array of Word;
begin
  Randomize;   //Активируем генератор случайных чисел
  //Задаем размеры для каждой таблицы (n:n)
  strRez.ColCount:=n;
  strRez.RowCount:=n;
  strMas.ColCount:=n;
  strMas.RowCount:=n;
  k:=StrToInt(txtN.Text);
 
  //Цикл для задания размера
  //динамического массива
  //for i:=0 to 1 do
    //begin
      SetLength(mas,n);
        for j:=0 to n-1 do
          SetLength(mas[j],n);
    //end;
  //Цикл для заполнения массива
  //случайными числами
  for i:=0 to High(mas) do
    for j:=0 to High(mas) do
    begin
      mas[i,j]:=random(90);
      strMas.Cells[j,i]:=IntToStr(mas[i,j]);
      //Результирующую таблицу временно
      //заполняем нулями
      strRez.Cells[j,i]:='0';
    end;
  //Цикл для прохода по строкам до середины
  for j:=0 to k-1 do
  begin
    kol:=0; //Обнуляем кол-во элементов массива
    //Цикл для задания размера нового массива
    for i:=0 to j do
      inc(kol);
 
    SetLength(m,kol); //Задает размерность массива
    pos:=0;
    //Цикл для заполнения нового массива элементами
    //из предыдущего массива 'mas'
    for a:=0 to j do
    begin
      m[pos]:=mas[n-j-1,a];
      inc(pos);
    end;
    //Цикл для сортировки массива
    for b:=1 to kol-1 do
      for c:=0 to b-1 do
        if m[b]>m[c] then
        begin
          p:=m[b];
          for l:=b-1 downto c do
            m[l+1]:=m[l];
          m[c]:=p;
        end;
    //Цикл для вывода результата сортировки
    for l:=0 to j do
      strRez.Cells[l, n-j-1]:=IntToStr(m[l]);
  end;
end;