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

vara:string;i,k,n:integer;begin    readln(a);         for i:=1 to length(a) do            begin               if a[i]='('then                   k:=k+1;                if a[i]=')'then                  n:=n+1;            end;if k=n then   writeln('Y')else   writeln('N');end.

var  s:string;  i,k:integer;begin  Write('Введите строку'); Readln(s);  k:=0;  for i:=1 to Length(s) do    case s[i] of    '(': Inc(k);    ')': Dec(k)    end;  if k=0 then Writeln('Число открывающих и закрывающих скобок совпадает')  else Writeln('Число открывающих и закрывающих скобок не совпадает')end.Тестовое решение:Введите строку(2+3/(3-5)-4*(5+7))Число открывающих и закрывающих скобок совпадает