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

uses
  crt;
 
var
  s: string;
  k, n: char;
  i, zkr, otkr: integer;
 
begin
  writeln('введите строку');
  readln(s);
  otkr := 0;
  zkr := 0;
  for i := 1 to length(s) do 
  begin
    if s[i] = '(' then begin
      inc(otkr);
    end;
    if s[i] = ')' then begin
      inc(zkr);
    end;
  end;
  if otkr = zkr then begin
    writeln('все скобки раставлены правильно')
  end
  else
    writeln('неверно расставлены скобки');
  readln;
end.