Алгоритм для знищення елемента у стеку

· Створюємо копію стеку.

· Заводимо додатково 2 рядкові змінні типу string: str, s1.

· Вводимо додаткову цілу змінну типа integer: nomer.

· Присвоюємо строковій змінній str обраний нами рядок з листбоксу замінюючи символ «» на символ «|» .

· Визначаємо за назвою офіса в якому файлі треба видалити обраний нами рядок .

· Створюємо новий об'єкт з нашими даними в конструкторі в залежності від обраного офісу завдяки тому, що всі наші дані знаходяться у полях форми.

· Заводимо нову рядкову змінну str2.

· Присвоюємо змінній str2 новий об'єкт приведений до рядкового типу.

· Методом Clear () видаляємо усі елементи зі старого стеку.

· Виконуємо цикл Пока в новому стеку кількість елементів більше нуля виконуємо: беремо елемент з верху стеку і приводимо його до рядкового типу для присвоєння змінній s1.

· Якщо змінна s1 тримає у собі змінну str тоді продовжуємо цикл Поки далі та й повертаємось до його початку.

· Якщо змінна s1 не тримає у собі змінну str тоді додаємо у старий стек змінну s1.

· Створюємо рядкову змінну str1.

· Оголошуємо файлову змінну read і зв’язуємо її з файлом.

· Введемо у змінну str1 вміст файла за допомогою файлової змінної read.

· Зачинемо файл, який зв’язали файловою змінною read.

· Оголошуємо об'єкт file1 і зв’язуємо її з файлом одного з офісів.

· Якщо у змінній str1 розшукуваний індекс у змінній str не дорівнює -1 тоді замінюємо цей рядок на виправлений рядок, тоді можна видалити зі змінної str1 змінну str2 тобто, якщо змінна str1 містить змінну str тоді виконуємо блок команд, а саме :

· В змінній str1 знаходимо початковий індекс рядка і знаходимо кількість символів завдяки рядковій змінній str2, яку потрібно видалити враховуючи 2 символи які позначають кінець рядка зі змінної str1.

· Записуємо у файлову змінну file1 рядкову змінну str1 і зачиняємо файл, який зв’язали файловою змінною file1.

· Кінець алгоритму.