Sample语言词法分析器标准答案

and array begin bool call case char constant dim do else end false for if input integer not of or output procedure program read real repeat set stop then to true until var while write abc 123 'EFG' ( ) * + , - . .. / : := ; < <= <> = > >= [ ]