транспонирование матриц

[kate158]

Помогите, пожалуйста с транспонированием матриц!
На форме есть два однострочных поля для ввода размерности матрицы. Две кнопки "вывести" и "транспонировать". Два стрингрида. При выборе кнопки "вывести" в первом стрингриде появляется матрица со случайными числами в заданном диапазоне. При выборе кнопки "транспонировать" во втором стинггриде должна появляться транспонированная матрица (строки первой матрицы=стобцам второй.столбцы первой равны строкам второй).Как осуществить транспонирование?
вот мой код:

implementation
{$R *.dfm}
 type mat=array[1..100,1..100] of integer;
 var i,j:integer;
     p:mat;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
randomize;
for i:=1 to strtoint(edit1.Text) do
 begin
   for j:=1 to  strtoint(edit2.Text) do
     begin
       //p[i,j]:=i*j;
       stringgrid1.Cells[j-1,i-1]:=inttostr(random(100));
     end;
 end;
end;

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j:integer;

begin
randomize;
clrscr;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
 writeln;
 end;
writeln('=====================================');
for j:=1 to n do
begin
 for i:=1 to n do
  write(a[i,j]:3);
writeln;
end;
end.

[kate158]

у меня не работает код.(
можно сделать проще - присвоением строк 1стрингрида столбцам второго?
типа Stringgrid1.rows:=stringgrid2.colls

[kate158]

Кто-нибудь может мне помочь?(

[s.Creator]

Так пойдет?
Test.zip

[Virtson]

for i:=0 to strtoint(edit2.Text)-1 do
begin
for j:=0 to strtoint(edit1.Text)-1 do
begin
stringgrid2.Cells[j, i]:= stringgrid2.Cells[i, j];
end;
end;
// =)

[kate158]

УФ!наконец то!)
s.Creator - спасибо,то,что надо
Virtson тоже спасибо))
все работает.)

[s.Creator]

исправь только

  StringGrid2.RowCount := StringGrid1.ColCount;    
  StringGrid2.ColCount := StringGrid1.RowCount;

или загрузи заново