'using pic16f84

INCLUDE "modedefs.bas"

DEFINE CHAR_PACING 1000

kdg var byte[3]
i var byte

pause 2000
here:
SerOut PORTA.0,t2400,["input value from 1 to 200",13,11]
pause 1000

i=0
start:
serin PORTA.2,t2400,[kdg[i]]
i=i+1
if kdg[i]==9 then start

SerOut PORTA.0,t2400,["the value your enter is ",kdg[i],13,11]
pause 2000

where is the wrong in my coding?
how to make the serin accept more that 1 character.?