Вывести текст между скобками

var
  s : string;
  i, iL, iR, kL, kR : byte; 
  f : boolean;
begin
  repeat
    f := true;
    kL := 0; {количество левых скобок}
    kR := 0; {количество правых скобок}
    write('введите строку: ');
    readln(s);
    {проверяем что есть 2 скобки
    причем правильно расставленные}
    for i := 1 to length(s) do
    begin
      if s[i] = '(' then
      begin
        inc(kL);
        iL := i
      end;
      if s[i] = ')' then
      begin
        inc(kR);
        iR := i
      end
    end;
    if (kL <> 1) or (kR <> 1) or (iL > iR) then f := false  
  until f; 
  writeln(copy(s, (pos('(', s) + 1), pos(')', s) - pos('(', s) - 1))  
end.

var
  S: string;
  i: byte;
  bln: boolean;
  
begin
  writeln('Введите строку:');
  readln(S);
  bln := true;
  for i := 1 to Length(S) do
  begin
    if bln then begin
      if s[i] = '(' then bln := false
    end
    else
    if s[i] <> ')' then write(s[i])
    else exit
  end
end.

var s,w:string;
i:byte;
begin
w:='';
i:=1;
readln(s);
while s[i]<>'(' do inc(i);
inc(i);
while s[i]<>')' do
begin
w:=w+s[i];
inc(i);
end;
writeln(w);
end.