QBasic array program to delete dublicate/reap

CLS
DIM n%(10), i%, l%, k%
PRINT "enter ten number"
FOR i = 1 TO 10
    INPUT N(i)
NEXT
k = 1

FOR i = 1 TO 10
    FOR J = i + 1 TO 10
        IF N(i) = N(J) THEN
            N(i) = N(i) - N(i)
        END IF
    NEXT
NEXT
FOR i = 1 TO 10
    IF N(i) <> 0 THEN
        N(k) = N(i)
        k = k + 1
    END IF
NEXT
l = k - 1
FOR k = 1 TO l
    IF N(k) <> 0 THEN
        PRINT N(k)
    END IF
NEXT