code 34025;
    integer procedure MAXELMROW(L, U, I, J, A, B, X);
    value L,U,I,J,X; integer L,U,I,J; real X; array A,B;
    begin integer K; real R, S;
        S:= 0;
        for K:= L step 1 until U do 
        begin R:= A[I,K]:= A[I,K] + B[J,K] * X;if ABS(R) > S then 
            begin S:= ABS(R); L:= K end 
        end;
        MAXELMROW:= L
    end MAXELMROW;
        eop