IfbBecameTooFew then

RemoveItem(iLeft + 1);

// ВАЖНО!

// ДО вызова процедуры RemoveItem

// переменная bBecameTooFew = True,

// если слияние страниц, подчинённых записи R, состоялось,

// bBecameTooFew = False, если не было слияния.

// ПОСЛЕ вызова процедуры RemoveItem

// переменная bBecameTooFew = True,

// если на САМОЙ записи R (а не на её потомках)

// стало слишком мало ключей,

// bBecameTooFew = False, если ключей достаточно.

if(lStartPage = 0) andbBecameTooFew then

Begin

// Единственный ключ на корневой странице удалён.

// Значит, осталась ссылка на единственного потомка.

lDied := R.mLink[0];

SeekAndRead(lDied, RAux);

R := RAux;

// Это важно!

// Только ЗДЕСЬ содержимое стартовой страницы

// заменится содержимым её единственного потомка.

RAux.nData := 0;

SeekAndWrite(lDied, RAux);

// Компонент с номером lDied погиб???

end;

SeekAndWrite(lStartPage, R);

end;

Begin

lRightest := FileSize(F);

IflRightest < 1 then

Begin

MsgBox('lFS < 1');

Application.Terminate;

Exit;

end;

iflRightest < 1 + lStartPage then

Begin

MsgBox('lFS < 1 + lStartPage');

Application.Terminate;

Exit;

end;

SeekAndRead(lStartPage, R);

IfR.mLink[0] < 0 then

Begin

// Сюда попали => страница терминальная

fori := 1 toR.nData do

Begin

iR := StringCompare(sFind, R.mData[i]);

ifiR = 0 then

Begin

RemoveItem(i);

// ТОЛЬКО ЗДЕСЬ удаляется ключ!

// bBecameTooFew пойдёт к процедуре-предку.

SeekAndWrite(lStartPage, R);

Exit;

end;

end;

MsgBox('Ключ "' + sFind + '" не найден!');

bFound := False;

Exit;

end;

// Сюда попали => страница НЕтерминальная

fori := 1 toR.nData do

Begin

iR := StringCompare(sFind, R.mData[i]);

ifiR = 0 then

Begin

bFound := True;

lRightest := R.mLink[i - 1];

SeekAndRead(lRightest, RAux);

// В RAux - левый потомок ключа R.mData[i].