Время работы насоса при аварии

PROGRAM PLC_PRG
VAR
    xT_set:     ARRAY[1..2]OF       UDINT;///Время которое нужно отработать
    yT_set:     ARRAY[1..2]OF       UDINT;///Буффер
    T_spent:    ARRAY[1..2]OF       UDINT;///Время которое насос отработал
    T_off:      ARRAY[1..2]OF       UDINT;///Время которое насос не работал
    cycles:     ARRAY[1..2]OF       UDINT;///Количество переключений 
    consumption:ARRAY[1..2]OF       INT:=[1500,2500];///Производительность насоса 
    P:          ARRAY[1..2]OF       BOOL;///Насосы
    operating:  ARRAY[1..2]OF       oscat_basic.ONTIME;///Таймер наработки
    reset:      ARRAY[1..2]OF       BOOL;///Сброс таймера
    i:                              INT;
    L:          ARRAY[1..2]OF       BOOL;///Авария датчиков уровня
    k:                              INT;///Счётчик
    xCount:                         INT;///Счётчик
    xReset_count:                   BOOL;///Сброс счётчика
    out_count:                      BOOL;///Выход счётчика
    Count:                          INT;
    signal:                         INT;
    Time_work,Time_work_Alarm:      ARRAY[1..2]OF       TP; ///Генератор импульса
    pusk:                           r_trig;///Сигнал на запуск насосов 
    generator:                      ton;///Генератор импульсов
    out_generator:                  BOOL;
END_VAR

FOR i:=1 TO 2 DO
    operating[i](IN:=P[i],RST:=reset[i],SECONDS:=T_spent[i],CYCLES:=cycles[i]);
    generator(IN:=NOT(generator.Q),PT:=T#10S);
    out_generator:=generator.Q;
    IF out_generator THEN
        k:=k+1;
    END_IF
    pusk(CLK:=k=5);
    out_count:=pusk.Q;
    IF pusk.Q THEN
        xCount:=xCount+1;
        k:=0;
    END_IF
    xT_set[1]:=consumption[1]/REAL_TO_UDINT(0.6)+T_off[1];
    xT_set[2]:=consumption[2]/REAL_TO_UDINT(0.6)+T_off[2];
    IF L[1] AND pusk.Q THEN
    yT_set[1]:=yT_set[1]+xT_set[1];
    yT_set[2]:=yT_set[2]+xT_set[2];
    T_off[1]:=xT_set[1]-T_spent[1];
    T_off[2]:=xT_set[2]-T_spent[2];
    ELSIF NOT L[1] THEN
    T_off[i]:=0;
    END_IF
    Time_work[1](IN:=pusk.Q,PT:=UDINT_TO_TIME(xT_set[1]));
    Time_work[2](IN:=pusk.Q,PT:=UDINT_TO_TIME(xT_set[2]));
    P[1]:=Time_work[1].Q;
    P[2]:=Time_work[2].Q;
END_FOR