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

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.