Матрица смежности?

Question

[Gigabait]

Помогите с построением матрицы смежности , до меня не доходит как записать все это в мемо.
Есть 2 цикла для перебора вершин и ребер и 2 условия проверки.

for a := Low(vershini) to High(vershini) do begin // вершины
for b := Low(rebri) to High(rebri) do begin       // ребра

if (((vershini[a].X-rebri[b].X)*(vershini[a].X-rebri[b].X)) + ((vershini[a].Y-rebri[b].Y)*(vershini[a].Y-rebri[b].Y))) < 100 then begin
Memo3.Lines.Add((rebri[b].name) + ' пересекает ' + (vershini[a].name));
end;
if (((vershini[a].X-rebri[b].XX)*(vershini[a].X-rebri[b].XX)) + ((vershini[a].Y-rebri[b].YY)*(vershini[a].Y-rebri[b].YY))) < 100 then begin
Memo3.Lines.Add((rebri[b].name) + ' пересекает ' + (vershini[a].name));
end;

end;  // for a
end;  // for b