Создание мини компилятора Pascal в Делфи

Исходный код на который нужно написать компилятор:

procedure TForm1.Button2Click(Sender: TObject);

var M:set of char;ch:char;S:string;i,k:integer;

begin

M:=[];k:=0;

for i:=i to ListBox1.Items.Count-1 do

S:=S+Listbox1.Items;

begin

for i:=1 to Length(S) do

if S in M then

M:=M+[S]

else

if M>5 then begin ShowMessage('Impossible') end;end;

Дело в том что в коде есть элементы ListBox1 . Ими можно будет принибречь и заменить весь листбокс в коде на сет к примеру, так как листбокс по своей сути является одномерным массивом.

Писать надо будет в среде разработок Delphi. Желательно с 3 модулями: сканер, грамматика, парсер.

срок 10-15 дней

Нужно описать

Procedure statement, Procedure declaration.

Var list declaration, var statement.

Set type declaration.

If statement.

For statement.

ShowMessage statement.

Text constant declaration.