транспонирование квадратной матрицы

[777UFO777]

Помогите дописать алгоритм

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


procedure TForm1.ButtonPlusClick(Sender: TObject);
begin
  with StringGrid1 do begin
    RowCount:=RowCount+1;
    ColCount:=ColCount+1;
  end;
end;

procedure TForm1.ButtonMinusClick(Sender: TObject);
begin
  with StringGrid1 do begin
    RowCount:=RowCount-1;
    ColCount:=ColCount-1;
  end;
end;

Нужно сделать транспонирование матрицы

[evg_m]

проходим по верхнему треугольнику матрицы
for j:=1 to kolstr-1 do
for i:=j+1 to kolstr-1 do //главную диагональ не трогаем
a[i,j]:=a[j.i]; //и переставляем элементы