Обработка матриц

procedure TForm1.Button1Click(Sender: TObject);
const n = 5; //размер массива + 1
var i, j: integer;
begin
  randomize; //инициализация генератора случайных чисел
  StringGrid1.ColCount := n; //форматирование StringGrid
  StringGrid1.RowCount := n;
  StringGrid1.Cells[0, 0] := 'j v   i >';
  StringGrid2.ColCount := n;
  StringGrid2.RowCount := n;
  StringGrid2.Cells[0, 0] := 'j v   i >';
  for i := 1 to StringGrid1.RowCount - 1 do
    begin
      StringGrid1.Cells[i, 0] := IntToStr(i);
      StringGrid1.Cells[0, i] := IntToStr(i);
      StringGrid2.Cells[i, 0] := IntToStr(i);
      StringGrid2.Cells[0, i] := IntToStr(i);
    end;
  for j := 1 to StringGrid1.RowCount - 1 do //заполнение массива A случайными числами
    for i := 1 to StringGrid1.ColCount - 1 do
      StringGrid1.Cells[i, j] := FloatToStr(random * 2000 - 1000);
  for j := 1 to StringGrid1.RowCount - 1 do //формирование массива C
    for i := 1 to StringGrid1.ColCount - 1 do
        if j >= i then StringGrid2.Cells[i, j] := StringGrid1.Cells[i, j]
                  else StringGrid2.Cells[i, j] := StringGrid1.Cells[j, i]
end;