Стек: функция удаления и переприсвоение массива (Builder 6)

void udal(TStek & s)
{ // уменьшаем количество при наличии элементов
if(s.kol>0)
s.kol--;
}

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
//структура "стек"
struct TStek {
    double * elem;  //указатель на массив элементов
    int kol;        //количество занятых эл-тов
    int maxkol;     //максимальное количество эл-тов
};
 
TStek stek; //экземпляр стека
 
//инициализация стека, задаётся макс. число эл-тов
void inic(TStek & s, unsigned short max)
{
    //задаём количество
    s.maxkol=max; s.kol=0;
    //создаём массив эл-тов
    s.elem=new double[max];
}
 
//добавление числа в стек
void dobav(TStek & s, double n)
{
    //если есть место, то помещаем число в конец
    if(s.kol<s.maxkol){
        s.elem[s.kol]=n;
        s.kol++;
    }
}
 
//удаление элемента
void udal(TStek & s)
{
    //уменьшаем количество
 при наличии элементов    if(s.kol>0)
        s.kol--;
}
 
//вывод содержимого в текстовую строку
void vyvod(TStek & s, AnsiString & t)
{
    t="";
    //перебираем эл-ты, добавляем с переносами строк
    for(int i=s.kol-1; i>=0; i--)
        t=t+AnsiString(s.elem[i])+"\r\n";
}
 
//нахождение суммы элементов стека
void summa(TStek & s, double & sum)
{
    sum=0;
    //каждый элемент добавляем к сумме
    for(int i=0; i<s.kol; i++)
        sum+=s.elem[i];
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    AnsiString s; 
    int n; //размер стека
   
    do{
        //вводим размер стека
        s=InputBox("Инициализация",
                    "Введите размер стека","10");
        //переводим в число, по умолчанию - 0
        n=StrToIntDef(s,0);
    
    }while(n<=0);
 
    //инициализируем стек
    inic(stek,n);
}
//---------------------------------------------------------------------------
//ryjgrf добавления
void __fastcall TForm1::btnDobClick(TObject *Sender)
{
    //получаем из текста число, по умолчанию - 0
    double n=StrToFloatDef(editDob->Text,0);
    //добавляем в стек
    dobav(stek,n);
    //выводим содержимое стека в строку, а её - в окно
    AnsiString s;
    vyvod(stek,s);
    memoStek->Text=s;
    //очищаем значение
    editDob->Text="";
}
//---------------------------------------------------------------------------
//кнопка удаления
void __fastcall TForm1::btnUdalClick(TObject *Sender)
{
    //удаляем элементт
    udal(stek);
    //выводим содержимое стека
    AnsiString s;
    vyvod(stek,s);
    memoStek->Text=s;
}
//---------------------------------------------------------------------------
// кнопка нахождение суммы
void __fastcall TForm1::btnSummaClick(TObject *Sender)
{
    //вычисляем сумму, выводим в текстовое поле
    double sum;
    summa(stek,sum);
    editSumma->Text="Сумма = "+AnsiString(sum);
}
//---------------------------------------------------------------------------