QBasic ile Tam sayılar içeren bir dizide herbir elemandan kaçar tane olduğunu bulma

'Tamsayilar iceren bir dizide herbir elemandan
'kacar tane oldugunu bulan prg
CLS
DIM x(10)
FOR i = 1 TO 9
READ x(i)
NEXT i
DATA -3,-2,-1,5,7,7,8,8,12
min = -2
max = 8
FOR i = 1 TO 9
IF min > x(i) THEN min = x(i)
IF max < x(i) THEN max = x(i)
NEXT i
PRINT min, max
FOR i = min TO max
s = 0
FOR j = 1 TO 9
IF x(j) = i THEN s = s + 1
NEXT j
IF s <> 0 THEN PRINT i; "elemanindan"; s; "tane var"
NEXT i