Преобразование квадратной матрицы

[AchtungPanzer]

Приветствую. Прошу помочь доделать программу. Значит. Дана действительная квадратная матрица порядка n. Преобразовать матрицу по следующему правилу: строку с номером n сделать столбцом с номером n, а столбец с номером n - строкой с номером n. Первый StringGrid я заполнил случайным образом. А второй StringGrid нужно заполнить уже преобразовав элементы из первого String. Если не получится с моим кодом, прошу написать свой вариант. Заранее спасибо.

[macomics]

for i:=1 to n do begin
 t:=mas[i,x]; mas[i,x]:=mas[x,i]; mas[x,i]:=t; end;

[AchtungPanzer]

Я делал так, но второй StringGrid был пустой. Может посмотрите мой код

[AchtungPanzer]

После того, как я это сделал, эту часть кода я стёр

[macomics]

Так а скопировать сначала ячейки из первого во второй не догадались.

[AchtungPanzer]

Вы мой код видели, а то там 0 просмотров. Незнаю как скопировать

[macomics]

в редакторе нажмите CODE и вставьте текст между тэгами

[AchtungPanzer]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    StringGrid2: TStringGrid;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
                                  {Çàïîëíåíèå ìàññèâà}
var
  i,j:integer;
begin
  Randomize;
  with StringGrid1 do {Âûâåñòè íîìåðà ñòðîê}
  begin
    I:=0; {Ñòîëáåö 0}
    for J:= 1 to RowCount - 1 do {Âûâåñòè íîìåðà ñòðîê}
       Cells[I,J] := IntToStr(J);
    j:=0;
    for I:= 1 to ColCount - 1 do {Âûâåñòè íîìåðà ñòðîê}
       Cells[I,J] := IntToStr(I);
    end;
  with StringGrid1 do {Âûâåñòè â òàáëèöå ýëåìåíòû äâóìåðíîãî ìàññèâà}
   for I := 1 to ColCount - 1 do
     for J := 1 to RowCount - 1 do
       begin
                Cells[I,J] := IntToStr(Round(Sin(Random(100))*100));
       end;
  with StringGrid2 do {Ïðåîáðàçîâàòü â òàáëèöå ýëåìåíòû äâóìåðíîãî ìàññèâà}
   for I := 1 to ColCount - 1 do
     for J := 1 to RowCount - 1 do
       begin
                Cells[J,I] := Cells[J,I];
       end;
end;

end.

[macomics]

with StringGrid2 do {Ïðåîáðàçîâàòü â òàáëèöå ýëåìåíòû äâóìåðíîãî ìàññèâà}
   for I := 1 to ColCount - 1 do
     for J := 1 to RowCount - 1 do
       begin
                {StringGrid2.}Cells[J,I] := {StringGrid2.}Cells[J,I];
       end;

это ничего не копирует

[AchtungPanzer]

Да, а как сделать чтобы StringGrid2 заполнил преобразовав,