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

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.