Перевод матрицы смежности в матрицу инцидентности

procedure TForm1.Button5Click(Sender: TObject);
var i,j,k,m,p,kk:integer;
    qw:boolean;
begin
  for i:=1 to stringgrid1.ColCount-1 do
    for j:=1 to stringgrid1.rowCount-1 do
      if stringgrid1.cells[i,j]='' then qw:=true;
  if qw=true then showmessage('Матрица не заполнена!') else
  begin
    k:=0;
    stringgrid2.colCount:=stringgrid1.RowCount;
    for i:=1 to stringgrid1.colCount-1 do
       for j:=1 to stringgrid1.rowCount-1 do
          if stringgrid1.cells[i,j]<>'0' then inc(k);
    k:=k div 2;
    stringgrid2.rowCount:=k+1;
    m:=form1.StringGrid2.colCount;
          with form1.StringGrid2 do
            begin
              for i:=1 to rowcount-1 do
                cells[0,i]:=inttostr(i);
            end;
          with form1.StringGrid2 do
            begin
              j:=1;
              m:=m+65;
              for i:=65 to m do
                begin
                  cells[j,0]:=chr(i);
                  inc(j);
                end;
            end;
      kk:=1;
      p:=2;
      for j:=1 to stringgrid1.rowcount-1 do
 
        for i:=p to stringgrid1.ColCount-1 do
          if stringgrid1.Cells[i,j]='1' then
            begin
              stringgrid2.Cells[i,kk]:='1';
              stringgrid2.Cells[J,kk]:='1';
              inc(kk);
              inc(p);
            end;
      for i:=1 to stringgrid2.colCount-1 do
       for j:=1 to stringgrid2.rowCount-1 do
          if stringgrid2.cells[i,j]='' then stringgrid2.cells[i,j]:='0';
      memo1.Text:='Матрица инцидентности успешно создана';
   end;
end;