ввести выражение, которое заканчивается клавишей enter. определить, правльно ли расставлены круглые скобки. ПАСКАЛЬ

program zz1;

var s: string; // задаем переменную строкового типа i, m1, n1, n2: integer;// задаем переменную целого типа

begin write(\' введите выражение \'); read(s); // вводим с клавиатуры строку n1 := pos(\'(\', s); // проверяем какая скобка раньше n2 := pos(\')\', s); if n2 > n1 then for i := 1 to length(s) do // организуем цикл, в котором переберем все символы от первого до последнего begin if s[i] = \'(\' then inc(m1); // увеличиваем переменную, если встретили одну скобку if s[i] = \')\' then dec(m1); // уменьшаем переменную, если встретили другую скобку end else m1 := 1; if m1 = 0 then write(\' скобки расставлены правильно \') else write(\' скобки расставлены не правильно \');end.