БНФ, очередь и стек Опции

[.*Pas]

вот условие:
Используя очередь и стек из входного текстового файла F проанализировать текст
сбалансированный по скобкам
<Текст>::=<пусто> |
<элемент><текст>
<элемент>::=<буква> |
(<текст>)
Напечатать упорядоченные пары номеров открывающих скобок.

в общем вот пример входного файла a(b©)

объясните или сделайте пожалуйста мне эту задачу,очень срочно надо

[Guest]

вот ещё есть на Паскале решение,но мне надо на Турбовом решить

Код

procedure TForm1.Button1Click(Sender: TObject);    
var    
i,y:integer;    
stek:Integer; //Для стека достаточно одного символа    
str:string;    
begin    
IF openDialog1.Execute then    
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);    
stek:=-1;    
For i:= 0 to MEmo1.Lines.Count-1 do    
For y:= 1 to Length(Memo1.Lines[i]) do    
Begin    
str:=Memo1.Lines[i];
If ( str[y]='(' ) then    
      if ( stek<0 ) then    
        Begin    
         Stek:=y;    
        end    
      else    
        Begin    
         Label1.Caption:=Label1.Caption+IntToStr(stek)+'-'+IntToStr(y)+'  ';    
         Stek:=-1;    
        end;    
  End;    
end;    
end.