строка помогите

[paladinn]

1.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок. В общем вот чо написал
program skobki;
uses crt;
var
s:string;
begin
clrscr;
write('vvodim stroky so skobkami');
readln(s);
write(copy(s,pos ( '(',s)+1 , pos( ')',s) - pos('(',s)-1));
readln;
end.
теперь нужно сделать так чтобы допустим если мы ввели строку без скобок либо есть одна из них но нет другой либо они не правильно расположены то есть сначала закрывающайся потом откр в общем во всех других вариантах выводил ошибку помогите пожалуста !

[alex_fcsm]

var s,s1:string;
    i,k:integer;

begin
writeln('Input string');
readln(s);
k:=0;
if pos('(',s)=0 then k:=1 else
repeat
inc(i);
if s[i]<>')' then s1:=s1+s[i];
if s[i]='(' then begin
                  s1:='';
                  inc(k);
                 end;
if s[i]=')' then dec(k);
until i=length(s);
if k=0 then writeln(s1)
   else writeln('Error!!!');
end.