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

Program gt;
var a:string;
l,i,p:integer;
begin
readln(A);
l:=length(A);
p:=0;
for i:=2 to l do
begin
if(a[i-1]='(' )then p:=1;
if(a[i]=')' )then p:=0;
if(p=1)then a[i]:='.';
end;
writeln(a);
end.