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

var
ls,rs,i:integer;
s:string;
begin
    writeln('Введите строку');
    readln(s);
    ls:=0;rs:=0;
    for i:=1 to length(s) do
        begin
            case s[i] of
             '(': inc(ls);
             ')': inc(rs);
            end;
        end;  
    if (ls=rs) then writeln('Одинаковое количество') 
          else writeln('Не одинаковое количество');
end.