Удалить элемент, находящийся в середине стека, если число элементов нечётное, или 2 средних элемента, если чётное - Pascal

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

Удалить элемент, находящийся в середине стека , если число элементов нечетное, или 2 средних элемента, если число элементов четное.

Решение задачи: «Удалить элемент, находящийся в середине стека, если число элементов нечётное, или 2 средних элемента, если чётное»

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

. . .
count := stack.count;
if odd(count) then
  begin
    for i := 1 to count div 2 do tmp.push(stack.pop);
    stack.pop;
    for i := 1 to count div 2 do stack.push(tmp.pop);
  end
else
  begin
    for i := 1 to count div 2-1 do tmp.push(stack.pop);
    stack.pop;
    stack.pop;
    for i := 1 to count div 2-1 do stack.push(tmp.pop);
  end;
. . .

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

В данном коде решается задача удаления определённого элемента из стека.

Переменная count инициализируется значением счётчика элементов в стеке.
Если счётчик нечётный, то выполняется первый блок кода.
В первом блоке кода создаётся временный стек tmp, в который сдвигаются элементы из исходного стека, начиная со второго и заканчивая предпоследним.
В исходном стеке удаляется последний элемент.
Элементы из временного стека возвращаются в исходный стек, начиная с первого и заканчивая последним.
Если счётчик чётный, то выполняется второй блок кода.
Во втором блоке кода создаётся временный стек tmp, в который сдвигаются элементы из исходного стека, начиная со второго и заканчивая предпоследним.
В исходном стеке удаляются два последних элемента.
Элементы из временного стека возвращаются в исходный стек, начиная с первого и заканчивая предпоследним.