Нельзя индекс бита задавать через переменную.
Попробуйте так:
Код:
    var
        i : udint;
        sv : udint;
    end_var
    
    for i := 0 to 5 do
        sv := shr(uzas, i);
        if sv.0 then
            uza_alarm := 15 - i;            
        end_if
    end_for