Проверка на колличество скобок!

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,strUtils;
    var
    i,k,p,a,b,left,right:integer;
    st:string;

begin
st:='(я оче)( люблю про)рамить на(делфи)';
k:=1;
p:=1;
left:=0;
right:=0;


for I := 1 to Length(st)-1 do
   begin
   a:=PosEx('(',st,k);
        if a<>0 then
           begin
                inc(left);
                k:=a+1;
            end;

   b:=PosEx(')',st,p);
        if b<>0 then
           begin
                inc(right);
                p:=b+1;
            end;

   end;

 if left=right then
      writeLn('Porobnu')
 else
      writeLn('Ne porobnu');




   readln;
end.

Сел накидал, все работает, но как можно упростить еще код программы?
ЗЫ:препод всегда хочеть, что бы всего было по минимуму(память, время)
ЗЫЫ:есть ли аналог функции PosEx() на С++?

[ОДИНОЧЕСТВО В СЕТИ]

а вот так нельзя

for I := 1 to Length(st) do
begin
if a[i]='(' then inc(left);
if a[i]=')' then dec(left);
end;
if left=0 then writeln('porovnu')
 else writeln('ne porovnu');

[Levsha100]

а вот так нельзя
Код:

for I := 1 to Length(st)-1 do
begin
if a[i]='(' then inc(left);
if a[i]=')' then dec(left);
end;
if left=0 then writeln('porovnu')
else writeln('ne porovnu');

Вернее так

for I := 0 to Length(st)-1 do
begin
if st[i]='(' then inc(left);
if st[i]=')' then dec(left);
end;
if left=0 then writeln('porovnu')
 else writeln('ne porovnu');