составить программу, которая считает в формуле, заданной с клавиатуры, количество открывающихся и закрывающихся круглых скобок

Pascal:

program strings;

uses crt;

var i, open, close:integer;

a:String;

begin

open:=0;

end:=0;

clrscr;

write ('Введите строку: ') ; readln (a) ;

for i:=1 to length (a) do

begin

if a[i]=' (' then open:=open+1;

if a[i]=') ' then close:=close+1;

end;

writeln ('Открывающихся скобок: ', open, ' штук') ;

writeln ('Закрывающихся скобок: ', close, ' штук') ;

readln;

end.