Код:
const
NumOfVerge = 6; //Количество граней у фигуры
type
PFigure = ^TFigure;
TFigure = record
X,Y:Word; //координаты центра
Friends:array [1..NumOfVerge] of PFigure; //Список указателей на соседние фигуры
end;
Вот примерная структура, работай со списком таких структур.