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

var
 s:string;
 i,count:integer;
begin
 readln(s);
 for i:= 1 to length(s) do begin
   if (s[i] = ')') and (count = 0) then begin
     writeln('skobki rasstavleni neverno');
     halt;
   end;
   if s[i] = '(' then
     inc(count)
   else
     dec(count);
 end;
 if count = 0 then
   writeln('odinakovoe');
end.