Граф в Delphi

Помогите пожалуйста написать программу.:)
Степенью ребра <u,v> назовем неупорядоченную пару <deg(u),deg(v)>, где deg(u) - степень вершины u, а deg(v) - степень вершины v. Написать программу определения, совпадают ли степни всех ребер заданного графа, и если нет, то можно ли удалить из него одну вершину (вместе с инцидентными ребрами) так, чтобы полученный граф обладал этими свойствами.