code 34033;
    procedure ICHROWCOL(L, U, I, J, A); value L,U,I,J;
    integer L,U,I,J; array A;
    begin real R;
        for L:= L step 1 until U do 
        begin R:= A[I,L]; A[I,L]:= A[L,J]; A[L,J]:= R end 
    end ICHROWCOL;
        eop