Программирование лексического анализатора

[J-lo]

Доброго времени суток!
Товарищи программисты, у меня курсовая работа на тему: «Программирование лексического анализатора». Мой метод – это конечный автомат. Надо написать на Delphi, поскольку там можно реализовать формы! Нужно реализовать с помощью подпрограмм. Т.е. каждому состоянию соответствует процедура/функция.
Т.е. на вход ЛА подается простой текст (например, .txt), а на выходе он должен сформировать выходную таблицу лексем, а также таблицы констант и идентификаторов (в случае, если типов больше 1, таблица идентификаторов должна содержать поле "тип"). И все это должно отображаться в формочке.
Грамматика для моего компилятора, диаграмма состояний, пример программы и все таблицы есть в электронном виде!

Вот небольшой пример:

procedure p1(IsRead:Boolean);
Begin
<пропуск белых разделителей>
If not IsRead then
c:=NextChar();
S:=S+c;
case c of
'a' .. 'z','A'..'D','F'..'Z' : p2();
'0','1','2','3','4','5','6','7','8' ,'9' : p3();
':' : p4();
'<' : p5();
'>' : p6();
';',',','+','*','/','?','#','(',')','[',']' :begin
addlex(c);
p1(false);
end
...
procedure p2(IsRead:Boolean);
begin
//пропуск белых расделителей
if not IsRead then
c:=NextChar();
S:=S+c;
case c of
'a' .. 'z','A'..'D','F'..'Z','0','1','2',' 3','4','5','6','7','8','9' : p2;
else begin
addlex(S,-1);
p1(true);
end;
end;
…
procedure p3(IsRead:Boolean);
begin
//пропуск белых расделителей
if not IsRead then
c:=NextChar();
S:=S+c;
case c of
'0','1','2','3','4','5','6','7','8' ,'9' : p3;
else begin
addlex(S,CONCODE);
p1(true);
end;
end;
….

И так далее для других состояний!
Пожалуйста, откликнитесь!!!!По зарез надо!!!!!
Кто возьмется, пишите!!!!!

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.