code 34032;
    procedure ICHROW(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[J,L]; A[J,L]:= R end 
    end ICHROW

        eop