Помогите написать код

[ArsBars]

Помогите написать исходный код:
Решить задачу по обработке строковых данных с использованием подпрограмм:
В строке, среди знаков могут встречаться открывающие и закрывающие скобки. Проверить с помощью подпрограммы равенство числа открывающихся скобок числу закрывающихся.

[Stilet]

function aga(s:string):Boolean;
var i,e,b:integer;
begin
 e:=0; b:=0;
 for i:=1 to Length(s) do if s[i]='(' then inc(b) else if s[i]=')' then inc(e);
 aga:=e=b;
end;

Без проверки вложенности.
Годится?