code 34182;
    comment MCA 2412;
    integer procedure REAEIGVAL(A, N, EM, VAL); value N;
    integer N; array A, EM, VAL;
    begin integer I, J; real R;
        array D[1:N]; integer array INT, INT0[1:N];

        EQILBR(A, N, EM, D, INT0); TFMREAHES(A, N, EM, INT);
        J:= REAEIGVAL:= REAVALQRI(A, N, EM, VAL);
        for I:= J + 1 step 1 until N do 
        for J:= I + 1 step 1 until N do 
        begin if VAL[J] > VAL[I] then 
            begin R:= VAL[I]; VAL[I]:= VAL[J]; VAL[J]:= R end 
        end 
    end REAEIGVAL

        eop