Строки Опции

[-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.

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