Найти и вывести номера последних скобок в текстах - Pascal ABC (16790)

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

Описать функцию, определяющую номер последней закрывающейся скобки (круглой или квадратной) в тексте. В главной программе дано 2 текста S1 и S2. Найти и вывести номера последних скобок в текстах.

Решение задачи: «Найти и вывести номера последних скобок в текстах»

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

function find(str:string):integer;
var i:integer;
begin
     i:=length(str);
     while not((str[i]=')') or (str[i]=']')) do
         i:=i-1;
     find:=i;
end;

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

В данном коде на языке Pascal ABC реализована функция под названием find, которая принимает в качестве аргумента строку str. Внутри функции объявлена переменная i, которая изначально устанавливается равной длине переданной строки. Затем происходит цикл while, который выполняется до тех пор, пока не будет выполнено одно из двух условий: либо последний символ строки равен кавычке ')' и следующий за ним символ также равен кавычке ']', либо последний символ строки равен кавычке ']' и следующий за ним символ также равен кавычке '('. Если условие выполняется, то значение переменной i уменьшается на единицу, и переменная find получает значение, равное i. Таким образом, функция find возвращает номер последней открывающей скобки в строке, если она существует. Если же открывающих скобок нет, то функция возвращает 0.