帮我设计一个词法分析器啊~~随便用什么语言编写 
词法分析器基本功能是:
 (1) 输入源程序:输入PASCAL源程序;
(2)输出单词:输出形式为:(序号,单词,对应源程序行号,对应源程序列号);
(3)输出出错信息,输出形式为:(出错行号,出错列号,出错信息);
(4)输出符号表,输出形式为:(单词种别码,单词符号);
(5)打开、保存文件;
输入源程序为:
program example1;
var 
    a,b,c:integer;
    x:char;

begin
if(a+c*3>b) and (b>3) then c:=3;
x:=2+(3*a)-b*c*8;
if (2+3>a) and (b>3) and (a>c) then c:=3;
for x:=1+2 to 3 do b:=100;
while a>b do c:=5;
for x:=1+d to 3 do b:=15;
while t>b do c:=5;
repeat   a:=10;  until a>b;
end.