Линейный однонаправленный список

type TListElement = class
  private
    _num:LongInt;
  public
    constructor Create(const x:LongInt);
    property num: longint read _num write _num default 0;   //объявил в свойство, так предпочтиетельнее для ООП
                                                            //и для этого есть как минимум три причины
                                                            //1)защита данных от некорректных чисел
                                                            //2)нормализация величин (приведение типов и т.д.)
                                                            //3)разделение чтения/записи для потоков с семофорами, мьютексами или чем-то подобным
end;
 
type
  TList = class
  private
    const min_count_of_elements = 20; //Минимальное кол-во элементов, чем больше - тем больше памяти жрётся
                                      //для маленьких списков, чем меньше - тем больше процессор грузится
                                      //на длинных списках, т.е. зависит от задачи
   var
    array_of_num:array of TListElement;
    element_count:DWord;              //кол-во реальных элементов в списке
    procedure IncArray;               //Увеличивает размер списка, если уже некуда прибавлять элементы
  public
    constructor Create;  // 1) Инициализация
    procedure Add(const x:LongInt; const i:dword);  //добавляет элемент x в i-ю позицию списка, пункты 4) и 5) за раз!
    property Last:DWord read element_count; //Даёт последний элемент списка
    procedure PrintList; // 2) Печать списка
    destructor Free;    //8) Удаление списка из памяти
  end;
 
procedure  TList.IncArray;
var
 _t:array of TListElement;
 i:dword;
begin
  SetLength(_t,SizeOf(array_of_num)+min_count_of_elements);
  for i:=Low(array_of_num) to High(array_of_num) do
    _t[i]:=array_of_num[i];
  SetLength(array_of_num,0);
  array_of_num:=_t;
end;
 
constructor TListElement.Create(const x:LongInt);
begin
  _num:=x;
end;
 
constructor  TList.Create;
var
  i:longint;
begin
   SetLength(array_of_num,min_count_of_elements);
   element_count:=0;
end;
 
procedure TList.Add(const x:LongInt; const i:dword);
var
  _i:dword;
begin
   if i>element_count then exit; // проверка на случай, если добавляем элемент в несуществующе реально, неуверен что надо
   if SizeOf(array_of_num)=element_count then IncArray; //если список полон, добавим новые элементы
   for _i:=element_count downto i do         //смещаем все реальные элементы списка на 1 вправо
      array_of_num[_i+1]:=array_of_num[_i];
   array_of_num[i]:=TListElement.Create(x);              //добавляем новый элемент
   inc(element_count);
end;
 
procedure TList.PrintList;
var
  i:LongInt;
begin
  writeln('-LIST-');
  for i:=Low(array_of_num) to element_count-1 do
    write(array_of_num[i].num,' ');
  writeln;
  writeln('-----');
end;
 
destructor TList.Free;
begin
  SetLength(array_of_num,0);
end;
 
 
var
  List:TList;
  x:LongInt;
 
begin
   List:=TList.Create();
   while true do
   begin
     Readln(x);
     if x<>0 then List.Add(x,List.Last)
     else break;
   end;
   List.PrintList;
   Readln;
   // добавим на 2 позицию число, к примеру 100 (нумерация списка от 0, поэтому 1 а не 2)
   List.Add(100,1);
   List.PrintList;
   Readln;
   List.Free();
end.