code 34367;
    procedure BAKCOMHES(AR, AI, TR, TI, DEL, VR, VI, N, N1, N2);
    value N, N1, N2; integer N, N1, N2;
     array AR, AI, TR, TI, DEL, VR, VI;
    begin integer I, R, RM1;
        real H;
        for I:= 2 step 1 until N do COMROWCST(N1, N2, I, VR,
        VI, TR[I], TI[I]); R:= N - 1;
        for RM1:= N - 2 step - 1 until 1 do 
        begin H:= DEL[RM1];
            if H > 0 then HSHCOMPRD(R, N, N1, N2, RM1, VR, VI,
            AR, AI, H); R:= RM1
        end 
    end BAKCOMHES;
        eop