Строки Опции

[-Dima-]

Дана символьная строка. Получить новую строку, взяв из данной все символы, находящиеся между первой открывающейся скобкой и последней закрывающейся (если какие-либо скобки отсутствует, то вывести соответствующее сообщение).

Касяк моей программы в том что он берет скобку '(' последнею и ')' тоже последнею, а надо чтобы прога брала ( скобку первую! Как это сделать?

Код

var
  s,str:string;
  i1,i2,j,i:integer;
begin
  write('BBEDITE SIMBOLHyu CTPOKy -> ');
  readln(s);
  i1:=0;
  i2:=0;
  for i:=length(s) downto i1 do
     if s[i]='(' then begin i1:=i;
     break end;
  for j:=length(s) downto i1+1 do
     if s[j]=')' then begin i2:=j;
     break end;

  if (i1=0) or (i2=0) then
                      begin write('ERROR!!!!!');
                      readln;
                      exit end
                      else str:=copy(s,i1+1,(i2-i1)-1);


  write('BbIBOD -> ',str);
  readln;
end.

Помогите пожалуйста!

[volvo]

Вот так еще быстрее:

uses crt;

function check_str(s: string): string;
var start, finish: byte;
begin
  start := pos('(', s) + 1;
  finish := length(s);
  while (s[finish] <> ')') and (finish > 0) do dec(finish);
  if finish > 0 then dec(finish);

  if (start > finish) or (start*finish = 0) then
    check_str := '<Error: no matches>'
  else check_str := copy(s, start, finish - start + 1);
end;

var
  s1: string;

begin
   clrscr;
   s1 := '(STRATqwe(123)))))))))))))))))))456)(78(9))FINISH)';
   writeln('s   = ' + s1);
   writeln('res = ' + check_str(s1));
end.

klem4, кстати, ты забыл

вывести соответствующее сообщение