globals
    unit n = null
endglobals

function CopyGroup takes group g returns group
    set bj_groupAddGroupDest = CreateGroup()
    call ForGroup(g, function GroupAddGroupEnum)
    return bj_groupAddGroupDest
endfunction

function GetStrongestUnitInGroup takes group g returns unit
    local real l = 0
    local real lm = 0
    if CountUnitsInGroup(g) > 1 then
        set bj_lastCreatedGroup = CopyGroup(g)
        loop
            set bj_lastCreatedUnit = FirstOfGroup(bj_lastCreatedGroup)
            set lm = GetUnitState(bj_lastCreatedUnit,UNIT_STATE_LIFE)/GetUnitState(bj_lastCreatedUnit,UNIT_STATE_MAX_LIFE​)*100
            exitwhen bj_lastCreatedUnit == null
            if lm < l then
                set l = lm
                set n = bj_lastCreatedUnit
            endif
            call GroupRemoveUnit(bj_lastCreatedGroup, bj_lastCreatedUnit)
        endloop
    else
        set n = FirstOfGroup(g)
    endif
    return n
endfunction

CS(set UNIT = GetStrongestUnitInGroup(твоя группа, глобалку с приставкой "udg_")

globals
    unit n = null
endglobals