Сортировка матрицы по сложным маршрутам

[CrOsP]

Здравствуйте нужно реализовать сортировку матрицы Уголком, сверху – вниз – налево, с конца главной диагонали.(Как на картинке)
Написал , но почему то как попало сортирует , подскажите пожалуйста где ошибка ?

procedure TForm1.N7Click(Sender: TObject);
    var m: TMatrixInt10x10;  nRow, nCol: integer;  ar: TArray100;
begin
   nCol:=StrToInt(edit1.Text);
   nRow:=StrToInt(Edit2.Text);
    //Читаем матрицу с экрана
    getMatrFromGrid(m, nRow, nCol, StringGrid1);
    //Переписываем в массив
    MatrToArray(m,nRow,nCol,ar);
    //Сортируем массив
    SortArray(ar,nRow*nCol);
    //Переписываем упорядоченный массив в матрицу по заданному маршруту
    fillCornerTopLeft(m,nRow, nCol, ar);
    // Выводим матрицу на экран
    showMatrInGrid( m,nRow,nCol,StringGrid2);
end;
 
procedure getMatrFromGrid(var m:TMatrixInt10x10; var nRow,nCol:integer;grid:TStringGrid);
    var i,j:integer;
  begin
    nRow:=grid.RowCount;
    nCol:=grid.ColCount;
    for i:=1 to nRow do
    for j:=1 to nCol do
    m[i,j]:=strToInt(Trim(grid.Cells[j-1,i-1]));
  end;
 
 procedure showMatrInGrid(const m:TMatrixInt10x10;nRow,nCol:integer;grid:TStringGrid);
       var i,j:integer;
  begin
    //Меняем размер StringGrid
    grid.ColCount:=nCol;
    grid.RowCount:=nRow;
    //Заполняем ячейки элементами матрицы
    for i:=1 to nRow do
    for j:=1 to nCol do
    grid.Cells[j-1,i-1]:=format('%3d',[m[i,j]]);
  end;
 
 
procedure fillCornerTopLeft(var m: TMatrixInt10x10; nRow, nCol: integer;
										ar: TArray100);
	var i, row, col: integer;
begin
	//Переписываем  массив в матрицу по  маршруту кутом Зверху-ліворуч
	row:=1;col:=ncol;	 // Координаты начала маршрута
	// Цикл по элементам массива
	for i:=1 to nRow*nCol do
	begin
		// Записываем в матрицу элемент массива
		m[row,col] := ar[i];
		// Определяем координаты в матрице для следующего элемента
		if col = ncol then begin col := row - 1;row := nrow; end
		else if row < col then row := row - 1
		else col := col - 1;
	end;
end;
procedure SortArray (var ar:TArray100; d:Integer);
    var i, j, x: integer;
begin
    for i := 1 to d- 1 do
    begin
                for j := i + 1 to d do
            if ar[j]  > ar[i] then
                begin
                    x :=  ar[i];
                    ar[i] :=  ar[j];
                    ar[j] :=  x;
                end;
    end;
end;

[CrOsP]

procedure fillCornerTopLeft(var m: TMatrixInt10x10; nRow, nCol: integer;
										ar: TArray100);
	var i, row, col: integer;
begin
	//Переписываем  массив в матрицу по  маршруту кутом Зверху-ліворуч
	row:=1;col:=ncol;	 // Координаты начала маршрута
	// Цикл по элементам массива
	for i:=1 to nRow*nCol do
	begin
		// Записываем в матрицу элемент массива
		m[row,col] := ar[i];
		// Определяем координаты в матрице для следующего элемента
     if row<=nrow then
     begin
    col := ncol;row := row+1;
    end
   else if  col=1 then
   row:=nrow
   else
   col:=col-1;
	end;
end;

Так делает первый проход но пропускает одно число в правом нижнем углу . Подскажите пожалуйста

[CrOsP]

Хотя нет , только для квадратных матрицах , в других что попало .

[CrOsP]

procedure fillCornerTopLeft(nRow, nCol: integer;
                                        ar: TArray100; var grid:TStringGrid);
    var i,j,y,x,xrow: integer;
begin
 y := 0;
  xRow := nRow-1;
  for x := nCol-1 downto 0 do
  begin
    for i := 0 to xRow do
    begin
       inc(y);
       grid.cells[x,i] := IntToStr(Ar[y]);
 
    end;
    for j := x-1 downto 0 do
    begin
       inc(y);
      grid.Cells[j,xrow] := IntToStr(Ar[y]);
 
 
    end;
    dec(xRow);
end;
end;

Закрывайте тему