Касяк моей программы в том что он берет скобку '(' последнею и ')' тоже последнею, а надо чтобы прога брала ( скобку первую! Как это сделать?
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.
Помогите пожалуйста!