[St_AnGer]

Этим ты проверишь расстояние только со следующим объектом k.

Так можно проверить расстояние до всех объектов (не люблю циклы в циклах, но по другому я не знаю как ещё можно это сделать):

For k.kot = Each kot
    For k1.kot = Each kot
        If k<> Null and k\entity <> k1\entity
            If EntityDistance(k1\entity,k\entity)<2
                k\speed=0
            Else
                k\speed=1
            EndIf
        EndIf 
   next
next

Ещё наверно можно заместо k\entity <> k1\entity сделать условие k <> k1.