В заданном тексте удалить все фрагменты, заключенные в круглые скобки (вместе со скобками) - Turbo Pascal

Формулировка задачи:

В заданном тексте удалить все фрагменты, заключенные в круглые скобки (вместе со скобками). Текст вводить собственноручно.

Решение задачи: «В заданном тексте удалить все фрагменты, заключенные в круглые скобки (вместе со скобками)»

Листинг программы

uses crt;
var l,i,n,m:integer;
st:string;
begin
clrscr;
readln(st);
i:=length(st);
while i>=1 do
if st[i]='(' then
 begin
  n:=i;
  while (st[n]<>')')and(n<=length(st)) do n:=n+1;
  delete(st,i,n-i+1);
  i:=i-1;
 end
else i:=i-1;
write(st);
readln
end.

Объяснение кода листинга программы

В первой строке кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
Переменные l, i, n и m объявлены как целочисленные типы данных.
Строка st объявлена как переменная типа string.
Функция clrscr используется для очистки экрана перед вводом строки.
Ввод строки осуществляется с помощью функции readln.
Переменная i инициализируется значением длины строки st.
Запускается цикл while, который будет выполняться до тех пор, пока в строке st есть символы.
Внутри цикла проверяется каждый символ строки st.
Если текущий символ - это '('.
Создается новая переменная n, которая будет использоваться для поиска следующего символа в строке, который не является '('.
Запускается вложенный цикл while, который будет выполняться до тех пор, пока n меньше или равно длине строки st и символ, находящийся на позиции n, не является '('.
Внутри вложенного цикла переменная n увеличивается на 1.
Если вложенный цикл завершается, это означает, что был найден символ, который не является '('.
В этом случае удаляется диапазон символов от i до n-i+1 в строке st с помощью функции delete.
Переменная i обновляется, чтобы отразить изменение в строке.
Если вложенный цикл не завершается, это означает, что все символы в строке являются '('.
В этом случае переменная i обновляется, чтобы отразить изменение в строке.
Цикл while наружного уровня завершается, когда в строке st нет символов.
Выводится строка st.
Вызывается функция readln для ввода следующей строки.