Составить программу определяющее число символов заключенных в круглые скобки — Pascal(Паскаль)

var
a:string;
n1,n2:integer;
begin
readln(a);
n1:=pos('(',a);
n2:=pos(')',a);
if n1<n2 then writeln(n2-n1-1);
end.