自己做的小编译程序,大家看看好不好用哦,是词法分析器

				{数组测试}
				{结果应为:0,1,2,3,4,5}
				program sd
				type  i=integer;
				      sarray=array [0..5] of integer;
				var  i x;
				     sarray y;
				     integer ss;
				procedure sd(integer a);
				begin 
				   write(a)
				end    
				begin
				  ss:=0;
				  while ss< do
				    y[ss]=ss;
				    x:=y[ss];
				    sd(x);
				    ss:=ss+1
				  endwh
				end.