В строке найти баланс скобок

var
  s: string;
  i, r: integer;
begin
  s := '() ((q)w)(er'
  r := 0;
  for i:=1 to length(s) do
  begin
    if s[i] = '(' then inc(r)
    else if s[i] = ')' then
    begin
      dec(r);
      if r < 0 then
      begin
        writeln('Закрывающая скобка без открывающей');
        break;
      end
    end
  end;
  if r <> 0 then
    writeln('Нарушен баланс скобок')
  else
    writeln('Скобки расставлены правильно')
end.

function scan(s: string): Boolean;
var
   i, r: integer;
begin
   r := 0;
   for i:=1 to length(s) do
   begin
      if s[i] = '(' then inc(r)
      else if s[i] = ')' then
      begin
         dec(r);
         if r < 0 then  break;
      end
   end;
   scan := r = 0
end;
 
begin
   if scan('() ((q)w)(er') then
      writeln('OK')
   else
      writeln('Error');
   if scan('() ((q)w)er') then
      writeln('OK')
   else
      writeln('Error')
end.