Сортировка побочной диагонали метадом вставки

[skrup]

необходимо отсортировать побочную диагональ методом вставки.
Ранее делал сортировку основной диагонали (все работает), но побочной ни как немогу сделать.
Вот код сортировки основной диагонали, может кто знает как переделать его на побочную диагональ

procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=1 to razm do diagonal[i]:=arr[i,n-j+1];
for i:=1 to razm do
begin
n:=diagonal[i];
j:=i-1;
while (j>=0) and (diagonal[j]>n) do
begin
diagonal[j+1]:=diagonal[j];
j:=j-1;
diagonal[j+1]:=n;
end;
end;
for i:=1 to razm do
StringGrid1.Cells[i-1,i-1]:=IntToStr(diagonal[i]);
end;