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

[.*Pas]

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

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

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

[volvo]

Ну, так в чем дело? Есть ведь алгоритм, ну и реализуй его на Турбо-Паскале:

function intToStr(x: integer): string;
var s: string;
begin
  str(x, s);
  intToStr := s;
end;

var
  y:integer;
  stek:Integer;
  caption, str:string;
  f: text;
begin
  assign(f, '_t_.txt');
  reset(f);

  stek := -1;
  while not eof(f) do begin
    readln(f, str);
    for y := 1 to length(str) do begin
      if str[y] = '(' then
        if stek < 0 then begin
          stek := y;
        end
        else begin
          Caption := Caption + IntToStr(stek)+'-'+IntToStr(y)+'  ';
          writeln(caption);
          Stek := -1;
        end;
    end;
  end;
  close(f);
end.

Вместо того, чтобы работать напрямую со строкой, можешь загнать ее в очередь, и работать с очередью символов, если это тебе нужно... Алгоритмы и исходники работы с очередями - в FAQ (или поиск)... В общем, смотри мою подпись