помогите с курсаком

[matsa]

Разработать транслируему грамматику и построить компилятор для обработки и выполнения программы:

program anketa;
type Form=record
Fname:string[6];
Lname:string[9];
num:string[7];
addr:string [15];
end;
var
abnt:array[1..10] of form;
i,j,l:integer;
f:text;

begin
assign(f, 'c:\1.txt');
rewrite(f);
for i:=1 to 10 do
begin
readln(abnt[i].Fname,abnt[i].Lname,abnt[i].addr,abnt[i].num);
end;
for i:=1 to 10 do
writeln(f,abnt[i].Fname, abnt[i].Lname, abnt[i].addr, abnt[i].num);
close(f);
end.

[BOBAH13]

Наглости у Вас не отнимать. Сколько можно, уже подобных тем уйма. Включайте свои мозги, а если они отсутствуют то платите за выполненную работу другим людям.

А задание очень похоже на дипломную работу или на курсовой неплохой важности в хорошем университете, в моем такое на диплом дали бы только.