Вывести подстроку, находящуюся внутри скобок - Pascal ABC

Формулировка задачи:

В строке имеются одна открывающая и одна закрывающая скобки. Вывести подстроку, находящуюся внутри этих скобок.

Program skoba;
{В строке имеются одна открывающая и одна закрывающая скобки. Вывести подстроку, находящуюся внутри этих скобок}
var s: string; i, l, c: integer;
begin
s:='asd(Skoba)asd';
for s:='(' to ')' do
writeln(s[i] in ['('..')');
end.

Попытался сам сделать но компилятор ругается

Решение задачи: «Вывести подстроку, находящуюся внутри скобок»

Листинг программы

Program skoba;
{В строке имеются одна открывающая и одна закрывающая скобки. Вывести подстроку, находящуюся внутри этих скобок}
var s: string;
  p1,p2 :integer;
begin
s:='asd)obana(asd';
p1:=pos('(',s);
p2:=pos(')',s);
if p1<p2 then 
  writeln(copy(s,p1+1,p2-p1-1))
else
  writeln(copy(s,p2+1,p1-p2-1));
end.

Объяснение кода листинга программы

В данном коде объявлены две переменные s и p1, которые имеют тип string и integer соответственно. Переменная s содержит строку 'asd)obana(asd'. Далее, с помощью функций pos, объявленных в разделе var, происходит поиск позиции первого и второго символа ')', соответственно. Затем, с помощью условного оператора if, происходит проверка того, что позиция первого символа ')' меньше позиции второго символа ')'. Если это условие выполняется, то с помощью функции copy выводится подстрока, находящаяся внутри скобок, начиная с позиции p1+1 и заканчивая позицией p2-p1-1. Если же условие не выполняется, то выводится подстрока, начиная с позиции p2+1 и заканчивая позицией p1-p2-1. Таким образом, данный код позволяет вывести подстроку, находящуюся внутри скобок, при условии, что она присутствует в исходной строке.