Нужна помошь в решение задачи!..По теме Файлы, не знаю как решать! Опции

[F@RTEM]

Тема:Файлы(текствовые);
ЗАДАЧА:
Дан текст, в котором есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок.

Причём нужна брать текст из файла вывести на экран...
А в тесте несколько строчек!
Нужен Текст задачи!!
P.S.
Лучше решить задачу в делфи...
Но можно и в паскале...сам потом передалаю

ЗАРАНЕЕ спасибо!!

[klem4]

)) Понял

Сглючило на то что в файле в каждой строке есть по 2 скобки ...

Ну тогда вот так:

uses crt;

var
  f: Text;
  s: Char;

begin
  assign(f, 'text.txt');
  reset(f);
  while not(eof(f)) do begin
    read(f, s);
    while not(eof(f)) and (s <> '(') do read(f, s);
    if not(eof(f)) then read(f, s);
    while not(eof(f)) and (s <> ')') do begin
      write(s);
      read(f, s);
    end;
  end;
  close(f);
end.

[F@RTEM]

)) Понял

Сглючило на то что в файле в каждой строке есть по 2 скобки ...

Ну тогда вот так:

uses crt;

var
  f: Text;
  s: Char;

begin
  assign(f, 'text.txt');
  reset(f);
  while not(eof(f)) do begin
    read(f, s);
    while not(eof(f)) and (s <> '(') do read(f, s);
    if not(eof(f)) then read(f, s);
    while not(eof(f)) and (s <> ')') do begin
      write(s);
      read(f, s);
    end;
  end;
  close(f);
end.

ага...пасибочки...
я её переделал в делфи...
она работает...но у меня получается что он выводит по одной букве(т.е по одному символу в строчку)

var
  s:string;{Если я меняю на string то задача виснит}
begin
  assignfile(g,'myfile.txt');
  Reset(g);
  while not eof(g) do begin
    read(g,s);
    while not(eof(g)) and (s <> '(') do read(g,s);
    if not(eof(g)) then read(g,s);
    while not(eof(g)) and (s <> ')') do begin
      Memo2.Lines.Add(s);
      read(g,s);
     end;
   end;
  closefile(g);
  end;
  end.

не подскажите как это сделать???