Сортировка методом Шелла, не простого массива

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "myproject.h"
#include "Unit2.h"
#include "Unit3.h"
#include <stdio.h>
#include <stdlib>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TStanki *Stanki;
//Выключение кнопок изменение и удаление
__fastcall TStanki::TStanki(TComponent* Owner)
    : TForm(Owner)
{
  bool activ = Stanki->Table->Selected && (int)Stanki->Table->Selected->Data != -1;
    Stanki->izmenmenu->Items->Items[1]->Enabled=activ;
    Stanki->izmenmenu->Items->Items[2]->Enabled=activ;
}
int N=0;
osnova* b[100];
char naim2[25];
    int  nomer2;
    int type2;
    char country2 [30];
    short hight2;
    short noise2;
    char brak2[10];
    char  data2[11];
    char  pasport2[25];
    short  toch2;
    char typed2[30];
    char typem2 [30];
//derevo* d[100];
//metal* m[100];
//функция очистки Edit
void TDobav :: chist()
    {
        naim1p->Text="";
        nomer1p->Text="";
        country1p->Text="";
        ves1p->Text="";
        noise1p->Text="";
        brak1p->Text="";
        data1p->Text="";
        pasport1p->Text="";
        tochnost1p->Text="";
    }
//функция заполнения данных в ListView
void TStanki :: zap(int i)
    {
        TListItem *item = Stanki->Table->Items->Add();
        item->Caption=b[i]->Naim();
        item->SubItems->Add(b[i]->Nomer());
        //if (b[i] -> type == 1)
        item->SubItems->Add(b[i]->Typek());
       //   if (b[i] -> type == 0)
        //item->SubItems->Add(typem);
        item->SubItems->Add(b[i]->Country());
        item->SubItems->Add(b[i]->Hight());
        item->SubItems->Add(b[i]->Noise());
        item->SubItems->Add(b[i]->Brak());
        item->SubItems->Add(b[i]->Data());
        item->SubItems->Add(b[i]->Pasport());
        item->SubItems->Add(b[i]->Toch());
    }
//функция выбора класса с типом
void TDobav :: vibor(k)
    {
        if (Dobav->Types->ItemIndex == 1)
            {   strcpy (typed2, "Деревообрабатывающий");
                b[k] = new derevo(naim2, nomer2, country2, hight2, noise2, brak2,
    data2, pasport2, toch2, typed2);
 
            }
        if (Dobav->Types->ItemIndex == 0)
            {   strcpy (typem2, "Металлообрабатывающий");
                b[k] = new metal(naim2, nomer2, country2, hight2, noise2, brak2,
    data2, pasport2, toch2, typem2);
            }
    }
//функция считывания данных с Edit
void TDobav :: schit(kk)
    {
        AnsiString naim1=naim1p->Text;
            sprintf(naim2, "%s", naim1);
        AnsiString nomer1=nomer1p->Text;
            nomer2 = atoi(nomer1.c_str());
        AnsiString country1=country1p->Text;
            sprintf(country2, "%s", country1);
        AnsiString ves1=ves1p->Text;
            hight2 = atoi(ves1.c_str());
        AnsiString noise1=noise1p->Text;
            noise2 = atoi(noise1.c_str());
        AnsiString brak1=brak1p->Text;
            sprintf(brak2, "%s", brak1);
        AnsiString data1=data1p->Text;
            sprintf(data2, "%s", data1);
        AnsiString pasport1=pasport1p->Text;
            sprintf(pasport2, "%s", pasport1);
        AnsiString toch1=tochnost1p->Text;
            toch2 = atoi(toch1.c_str());
    }
//функция добавления данных в ListView
int TDobav :: dobav ()
    {
       //   b[N] = new osnova;
       //   d[N] = new derevo;
       //   m[N] = new metal;
        schit(N);
        vibor(N);
        Stanki->zap(N);
        N++;
        chist();
        return(N);
    }
//функция изменения данных в ListView
void TDobav :: izmena ()
    {   int K = (int)Stanki->Table->Selected->Index;
        delete b[K];
        schit(K);
        vibor(K);
        Stanki->Table->Items->Clear();
        for(int i = 0; i < N; i++)
            {
                Stanki->zap(i);
            }
        chist();
    }
//функция удаления данных в ListView
int TStanki :: del()
    {
        int L = (int)Stanki->Table->Selected->Index;
        delete b[L];
        for(int g = L;  g < N; g++)
              {
              b[g] = b[g+1];
              }
        N--;
        Stanki->Table->Items->Clear();
        for(int l = 0; l < N; l++)
            {
                Stanki->zap(l);
            }
        return (N);
    }
 
//функция заполнения данных в ListView с файла
int TStanki :: filer()
    {
        FILE *in1 = fopen ("chtenie.txt" , "r");
        if (in1 == NULL)
            {
                ShowMessage ("Ошибка открытия файла");
                return(0);
            }
        else
            {
                  int i = N;
                    while (!feof(in1))
                    {  memset(naim2, 0, sizeof(naim2));
                       memset(country2, 0, sizeof(country2));
                       memset(brak2, 0, sizeof(brak2));
                       memset(data2, 0, sizeof(data2));
                       memset(pasport2, 0, sizeof(pasport2));
                       memset(typem2, 0, sizeof(typem2));
                       memset(typed2, 0, sizeof(typed2));
                       nomer2 = 0;
                       hight2 = 0;
                       noise2 = 0;
                       toch2 = 0;
                       fscanf(in1, "%s %d %d %s %d %d %s %s %s %d ",
                       naim2, &nomer2, &type2, country2, &hight2, &noise2, brak2, data2,
                       pasport2, &toch2);
                       if(type2 == 1)
                       {
                       fscanf(in1, "%s", typed2);
 
                            b[i] = new derevo(naim2, nomer2, country2, hight2, noise2, brak2,
    data2, pasport2, toch2, typed2);
                       }
                       if(type2 == 0)
                       {        fscanf(in1, "%s", typem2);
                            b[i] = new metal(naim2, nomer2, country2, hight2, noise2, brak2,
    data2, pasport2, toch2, typem2);
                       }
                       Stanki->zap(i);
                       i++;
                       N++;
                    }
          }
        fclose (in1);
        return (N);
    }
//функция сохранения данных в файл
void TStanki :: files()
    {
        FILE* in1 = fopen("chtenie.txt", "w+");
        if(in1 == NULL)
            {
                ShowMessage("Невозможно открыть файл  для записи");
                return;
            }
        else
    {
        for(int i = 0; i < N; i++)
            {
                fprintf(in1, "%s %d %d %s %d %d %s %s %s %d %s\n",
                b[i]->Naim(), b[i]->Nomer(), b[i]->Type(), b[i]->Country(), b[i]->Hight(), b[i]->Noise(), b[i]->Brak(),
                b[i]->Data(), b[i]->Pasport(), b[i]->Toch(), b[i]->Typek());
            }
        fclose(in1);
    }
    }
 
 
 
osnova :: osnova (char* Naim, int Nomer, char* Country, short Hight, short Noise, char* Brak,
    char* Data, char* Pasport, short Toch)
    {
    strcpy(naim, Naim);
    nomer=Nomer;
    strcpy(country, Country);
    hight=Hight;
    noise=Noise;
    strcpy(brak, Brak);
    strcpy(data, Data);
    strcpy(pasport, Pasport);
    toch=Toch;
    }
derevo :: derevo(char* Naim, int Nomer, char* Country, short Hight, short Noise, char* Brak,
    char* Data, char* Pasport, short Toch, char* Typed) : osnova (Naim, Nomer, Country, Hight, Noise,
    Brak, Data, Pasport, Toch)
    {
    strcpy(typed, Typed);
    }
metal :: metal(char* Naim, int Nomer, char* Country, short Hight, short Noise, char* Brak,
    char* Data, char* Pasport, short Toch, char* Typem) : osnova (Naim, Nomer, Country, Hight, Noise,
    Brak, Data, Pasport, Toch)
    {
    strcpy(typem, Typem);
    }
char* TSearchf :: poisk()
{   char txt[30];
    AnsiString txt1=naimp->Text;
            sprintf(txt, "%s", txt1);
    Stanki->Table->Items->Clear();
    for (int i = 0; i < N; i++)
    {   
    for (char* n = b[i]->Naim(); *n; n++)
    {
       bool zn = true;
       for (char* t=txt, *s = n; *t; t++, s++) 
       if (!*s || *t != *s)
       {
           zn = false;
           break;
       }
       if (zn) 
       {
        Stanki->zap(i);
       }
    }
    }
    return(NULL);
}
void TStanki ::sorti()
{
    int i=0, j=0, step=0;
    char tmp=0;
    for (step = N / 2; step > 0; step /= 2)
        for (i = step; i < N; i++)
        {
            tmp = b[i]->Nomer();
            for (j = i; j >= step; j = j - step)
            {
                if (tmp < (b[j - step]->Nomer()))
                    b[j] = b[j - step];
                else
                    break;
            }
            b[j]->Nomer() = tmp; //вот здесь выдает ошибку Lvalue required
        }
for (i = 0; i < N; i++)
{
Stanki->zap(i);
}
}
 
 
//---------------------------------------------------------------------------
void __fastcall TStanki::exitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TStanki::searchClick(TObject *Sender)
{
Searchf->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TStanki::N1Click(TObject *Sender)
{
Dobav->gotovo->Visible = true;
Dobav->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TStanki::N2Click(TObject *Sender)
{
Dobav->izmeni->Visible = true;
Dobav->Visible = true;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TStanki::N3Click(TObject *Sender)
{
del();
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
 
void __fastcall TStanki::TableMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    if (Button == mbRight || Button == mbLeft)
    {
        bool activ = Stanki->Table->Selected && (int)Stanki->Table->Selected->Data != -1;
        Stanki->izmenmenu->Items->Items[1]->Enabled=activ;
        Stanki->izmenmenu->Items->Items[2]->Enabled=activ;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TStanki::loadClick(TObject *Sender)
{
Stanki->filer();
}
//---------------------------------------------------------------------------
 
void __fastcall TStanki::saveClick(TObject *Sender)
{
files();
}
//---------------------------------------------------------------------------
 
void __fastcall TStanki::sortClick(TObject *Sender)
{
sorti();
}
//---------------------------------------------------------------------------

void TStanki ::sorti()
{
    int i=0, j=0, step=0;
    osnova* tmp=0;
    for (step = N / 2; step > 0; step /= 2)
        for (i = step; i < N; i++)
        {
            tmp = b[i];
            for (j = i; j >= step; j = j - step)
            {
                if (b[j]->Nomer() < (b[j - step]->Nomer()))
                    b[j] = b[j - step];
                else
                    break;
            }
            b[j] = tmp;
        }