Матрица

[artem2011]

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
  with StringGrid1 do
    begin
      RowCount:=StrToInt(LabeledEdit1.Text)+1;
      ColCount:=StrToInt(LabeledEdit1.Text)+1;
      for i:=1 to ColCount do
        for j:=1 to RowCount do
          Cells[i,j]:=IntToStr(50-Random(100));
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,t:integer;
begin
  with StringGrid1 do
    begin
      RowCount:=StrToInt(LabeledEdit1.Text)+1;
      ColCount:=StrToInt(LabeledEdit1.Text)+1;
      for i:=1 to ColCount do
        for j:=1 to RowCount do
          if i=j then
            for k:=j+1 to ColCount do
              begin
                t:=StrToInt(Cells[i,k]);
                Cells[i,k]:=Cells[k,j];
                Cells[k,j]:=IntToStr(t);
              end;
    end;
end;

end. 


Помогите переделать из чтобы элемент матрицы отображались относительно побочной диагонали