Написать программу удаления текста в скобках и вместе со скобками- Pascal(Паскаль)

program Project1;

var
  i, P1 : Integer;
  S : String;
begin
  Writeln('Задайте строку:');
  Readln(S);
  P1 := 0;
  for i := Length(S) downto 1 do begin
    if S[i] = ')' then P1 := i;
    if (P1 > 0) and (S[i] = '(') then begin
      Delete(S, i, P1 - i + 1);
      P1 := 0;
    end;
  end;
  Writeln('Результат:');
  Writeln(S);
  Readln;
end.