code 34031;
    procedure ICHCOL(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[L,I]; A[L,I]:= A[L,J]; A[L,J]:= R end 
    end ICHCOL;
        eop