Delphi.Работа с матрицами

[nulyjarden]

Помогите пожалуйста с программой!
Преобразовать матрицу смежности в матрицу инцинденции.

Есть исходник, но работает неправильно.
В StringGrid1 вводится матрица смежности, а в StringGrid2 выводится матрица инценденции.

 For n:=1 to StrToInt(Form2.Edit1.Text)+1 do
    For m:=1 to StrToInt(Form2.Edit1.Text)+1 do
      if StringGrid1.Cells[m,n]='1' then rb:=rb+1;
  For n:=1 to StrToInt(Form2.Edit1.Text) do
    For m:=1 to rb do
      StringGrid2.Cells[m,n]:='0';
      rb:=0;
  For n:=1 to StrToInt(Form2.Edit1.text)+1 do
    For m:=1 to StrToInt(Form2.Edit1.text)+1 do
      If StringGrid1.Cells[m,n]='1' then begin
      rb:=rb+1;
      StringGrid2.Cells[rb,m]:='1';
      StringGrid2.Cells[rb,n]:='-1';