Исключить из заданной строки группы символов между скобками '[', ']'

[Saren]

Вот само задание:
Исключить из заданной строки группы символов между скобками '[', ']'. Сами скобки тоже должны быть исключены. Предполагается, что внутри каждой пары скобок нет других скобок.

У меня вопрос: Можете помочь разобраться с кодом т.е. написать комментарий к каждому действию?
Что значит данная строка (P := 0; ) ? и так далее огромное спасибо за ранее.

Ответьте пожалуйста нв вопросы в комментариях.

Этот код я нашел на форуме он выдает правильно все.

procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
  i, Len, P : Integer;
begin
  S := Memo1.Text; //вводим исходный текст.
  Len := Length(S);  // Возвращает количество элементов в строке
  P := 0; // ЧТО ЗАНЧИТ ЭТА ЗНАЧЕНИЕ???
  for i := Len downto 1 do begin //чтО ДЕЛАЕТ ЦИКЛ?
  if S[i] = ']' then
  P := i   //ЧТО ДЕЛАЕТ ДАННАЯ ФУНЦИЯ?????
  else if (S[i] = '[') and (P > 0) then begin // ИСКЛЮЧАЕТ НЕОБХОДИМЫЕ СИМВОЛЫ
  Delete(S, i, P - i + 1); //ЧТО ЗНАЧИТ S, I, P???? ЧТО ОЗНАЧАЕТ i+1???
  P := 0;
  end;
  end;
  Memo2.Text := S; // выдает ответ.
end;

[WinCoder]

procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
  i, Len, P : Integer;
begin
  S := Memo1.Text; //вводим исходный текст.
  Len := Length(S);  // Возвращает количество элементов в строке
  P := 0; // ЧТО ЗАНЧИТ ЭТА ЗНАЧЕНИЕ??? Пока ни чего. Это просто переменная для хранения чисел. Тут её инициализировали (присвоили значение 0)
  for i := Len downto 1 do begin //чтО ДЕЛАЕТ ЦИКЛ? То что внутри него. От последнего символа строки s (Len := Length(s)) до первого
  if S[i] = ']' then
  P := i   //ЧТО ДЕЛАЕТ ДАННАЯ ФУНЦИЯ????? Если символ с индексом i (S[i]) равен [ то присваиваем p значение i. i при этом равняется индексу цикла
  else if (S[i] = '[') and (P > 0) then begin // ИСКЛЮЧАЕТ НЕОБХОДИМЫЕ СИМВОЛЫ
  Delete(S, i, P - i + 1); //ЧТО ЗНАЧИТ S, I, P???? ЧТО ОЗНАЧАЕТ i+1??? Удалить строку включая символ ]. Без +1 удалило бы ДО ].
  P := 0;
  end;
  end;
  Memo2.Text := S; // выдает ответ.
end;