Ученье - свет

В нашем славном АлтГТУ выращивают программистов по методичкам,
в одной из котрой содержатся такого рода рекомендации по написанию кода (Delphi):

procedure tsclad.put_trans(var trans:ttransistor);
// Помещает транзистор на склад
var i:integer;
  begin
    i:=self.Transistors_count;// определяем количество, содержащихся
        // в хранилище транзисторов.
    setlength(self.Transistors,i+1); // Увеличиваем на
        //единицу размерность
        // безразмерного массива
    self.Transistors[i]:=trans;// Копируем в конец
        //массива (i указывает
        //на конец массива) транзистор,
        // переданный в процедуру по ссылке (используется var в заголовке процедуры)
    self.Transistors_count:=i+1; // увеличиваем счетчик
        //количества транзисторов
    trans:=nil; // присваиваем объекту-транзистору пустой адрес,
        //и он перестает существовать вне хранилища
    trans.free; //очистить память от объекта
  end;

(C) Е.М. Патрушев, Методические указания к лабораторным и курсовым работам по курсу
«Теория и технология программирования»
для студентов специальности 190900
«Информационно-измерительная техника и технологии» Часть 2


Где ttransistor - class. Зачем так уродовать людей "на корню"?
Может я плохой знаток делфака, но
// присваиваем объекту-транзистору пустой адрес,
//и он перестает существовать вне хранилища
помоему - это уже слишком!
И почему сразу не научить людей использовать коллекции - тот же TList