удалить в строке то что в скобках вместе со скобками

[Вадим25]

надо удалить то что в скобках вместе со скобками . составил прогу но она не пашет . помогите исправить ошибки.

program laba72;
uses
crt;
const
skobka1=['('];
skobka2=[')'];
var
a:string[200];
i,j,l,poz:integer;
begin
clrscr;
writeln('vvedite stroky');
read(a);
for i:=1 to length(a) do
begin
if (a[i] in skobka1 )
then
begin
if (a[j] in skobka2)
then
begin
poz:=i;
l:=j-i;
delete(a,poz,l);
end;
end;
end;
write(a);
readkey;
end.

[Novi4ok_11]

Вам нужно использовать функцию pos, найдите для начала позицию первой скобки, затем второй, разница между этими значениями + 2 будет количеством символов которые нужно удалить, функцией удаления удалите ото количество а за точку начала возьмите pos первой скобки это задача на 3 строки

m1:=pos(skobka1,a);
m2:=pos(skobka2,a);
m:=(m2-m1)+1;
delete(a,m1,m);