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

var
    s:string;
    i:integer;
begin
    writeln('Введите строку');
    readln(s);
    for i:=1 to length(s) do
        if s[i]='(' then break;
 
    inc(i);
    while s[i]<>')' do
        begin
             Write(s[i]);
             inc(i);
        end;
end.