阅读下列FORTRAN77程序：
    INTEGERB(4,5)
    DATAB/11,20,15,1,9,12,18,2,6,8,
    *10,3,22,15,21,3,17,9,35,4/
    K=S(B,4,5)
    WRITE(*,*)K
    END
    FUNCTION S(A,M,N)
    INTEGER A(M,N),D,P
    DO100L=1,M
    P=A(L,1)
    K=1
    DO10J=1,N
    IF(A(L,J).LT.P)THEN
    P=A(L,J)
    K=J
    END IF
    10CONTINUE
    D=A(1，K)
    DO20J=1,M
    IF(A(J,K).GT.D)D=A(J,K)
    20CONTINUE
    IF(P.EQ.D)THEN
    S=P
    GOTO200
    END IF
    100CONTINUE
    200END
    运行上述程序后，输出的K的值为______。