alfabetic order

[banAnnA]

Maybe this is a stupid question.... :???:
I'm asking it anyway. Why doesn't it work?
I want the words putted in printed in alfabetic order.

Code:

10 input a$(i)
if a$(i)= "stop" then goto 20
i=i+1
goto 10

20  let n=i
      let i=1
goto 30

25
let i=1
let t=t+1
let k=k+1
let i=1+t
if i=n then goto 40

30
a$(k)=a$(i)
i=i+1
if a$(i)<a$(k) then let a$(i)=a$(k)
if a$(i)=n then goto 25
goto 30

40 for c = 1 to k
print c, a$(k)
next c