abstract Разбить элементы списка по группам пространственной смежности
procedure MakeCoherentGroups (var groups : TArrayPArrayInteger; delta : double);