FILE*outfp;chardir[100000];charch;char*keyword[400]={"and","array","begin","case","const","div","do","downto","to","else,","end","file","for","function","goto","if"