Дана строка часть которой заключена в круглые скобки, вывести на экран то, что расположено внутри скобок! через паскаль. это важно!

Var s:string;
i,k,m: integer;
begin
read (s);
for i:=1 to length (s) do
begin
if s[i]='(' then k:=i;
if s[i]=')' then m:=i;
end;
for i:=k to m do write (s[i]);
end.
Программа работает с учетом что в строке только одни скобки