PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('Введите текст:').ToCharArray;
if (a.Where(c->c='[').Count)=(a.Where(c->c=']').Count) then
Writeln('Число скобок совпадает')
else Writeln('Число скобок не совпадает')
end.