В заданном предложении удалить фигурные и квадратные скобки, если они встречаются попарно ( ‘[]’, ‘{}’ ) и подсчитать число удаленных символов — Pascal(Паскаль)

var
s:string;
begin
  readln(s);
  while (pos('(',s)>0)and(pos(')',s)>0) do
   begin
    delete(s,pos(')',s));//сначала вторую
    delete(s,pos('(',s));//потом первую
   end;
  while (pos('{',s)>0)and(pos('}',s)>0) do
   begin
    delete(s,pos('}',s));//сначала вторую
    delete(s,pos('{',s));//потом первую
   end;
  writeln('Itog');
  writeln(s);
end.