[HolyDel]

Ты не мог бы объяснить что ты хочешь получить в итоге?

+1, и при чем, желательно объяснить ето на великом и могучем.

вообщето можно обойтись одним типом

for u1.unit=each unit
for u2.unit = each unit
if u1\id<>u2\id
endif
nex
next