Цепной список и обычный динамический массив

unit Unit1;
 
interface
 
type
 
  Zveno = record
    Inf: byte;
    Next: Integer;
  end;
  PZv = ^Zv;
  Zv = record
    I: integer;
    N: PZv;
  end;
 
  TCList = class
  private
    FMass: array of Zveno;
    FFreeCell: PZv;
    First, FCount, Fblocksize, FCell: Integer;
    function NewZveno(a: byte): Zveno;
    function GetZveno(pos: integer): integer;
    function GetInf(pos: integer): byte;
    procedure SetInf(pos: integer; a: byte);
  public
    constructor Create;
    destructor Destroy; override;
    procedure Add(a: byte);
    procedure AddFreeCell(a: integer);
    procedure Insert(pos: integer; a: byte);
    procedure Delete(pos: integer);
    procedure DeleteFreeCell;
    procedure Print;
    property Items[i: integer]: byte read GetInf write SetInf;
    property count: integer read FCount;
  end;
 
implementation
 
{ TCList }
 
procedure TCList.Add(a: byte);
var
  i: integer;
begin
  if FCount = 0 then
  begin
    FMass[FCount] := NewZveno(a);
    First := FCount;
    FCount := 1;
    FCell := 1;
    Exit;
  end;
  i := first;
  while FMass[i].Next <> -1 do
  begin
    i := FMass[i].Next;
  end;
  if FFreeCell = nil then
  begin
    FMass[FCell] := NewZveno(a);
    FMass[i].Next := FCell;
    FMass[FCell].Next := -1;
    Inc(FCount);
    Inc(FCell);
  end
  else
  begin
    FMass[FFreeCell.I] := NewZveno(a);
    FMass[i].Next := FFreeCell.I;
    FMass[FFreeCell.I].Next := -1;
    DeleteFreeCell;
    Inc(FCount);
  end;
 
end;
 
procedure TCList.AddFreeCell(a: integer);
var
  FreeCell: PZv;
begin
  New(FreeCell);
  FreeCell.I := a;
  FreeCell.N := FFreeCell;
  FFreeCell := FreeCell;
end;
 
constructor TCList.Create;
begin
  Fblocksize := 10000;
  SetLength(FMass, Fblocksize);
  FCount := 0;
  FFreeCell := nil;
end;
 
procedure TCList.Delete(pos: integer);
var
  a, b: integer;
begin
  if pos >= FCount then
    exit;
  a := GetZveno(pos - 1);
  b := GetZveno(pos + 1);
  pos := GetZveno(pos);
  if pos > first then
  begin
    writeln('a ', a, '    b ', b, '  pos ', pos);
    FMass[pos].Inf := 0;
    FMass[a].Next := b;
    FMass[pos].Next := -1;
    FCount := FCount - 1;
    AddFreeCell(pos);
    if pos = FCell - 1 then
      dec(FCell);
    Exit;
  end;
  if pos = first then
  begin
    FMass[first].Inf := 0;
    b := FMass[first].Next;
    FMass[first].Next := -1;
    first := b;
    FCount := FCount - 1;
    AddFreeCell(pos);
    exit;
  end;
end;
 
procedure TCList.DeleteFreeCell;
 
begin
  if FFreeCell <> nil then
    FFreeCell := FFreeCell.N;
end;
 
destructor TCList.Destroy;
begin
  Dispose(FFreeCell);
  FMass := nil;
  First := -1;
  inherited;
end;
 
function TCList.GetInf(pos: integer): byte;
begin
  result := FMass[pos].Inf;
end;
 
function TCList.GetZveno(pos: integer): integer;
var
  i, j: integer;
begin
  if pos >= FCount then
  begin
    result := -1;
    exit;
  end;
  i := First;
  j := 0;
  while j < pos do
  begin
 
    i := FMass[i].Next;
    inc(j);
  end;
  Result := i;
end;
 
procedure TCList.Insert(pos: integer; a: byte);
var
  b: integer;
 
begin
  b := GetZveno(pos - 1);
  pos := GetZveno(pos);
  if pos < FCount then
  begin
    if FFreeCell = nil then
    begin
      FMass[FCell] := NewZveno(a);
      FMass[FCell].Next := pos;
      if pos <> first then
        FMass[b].Next := FCell
      else
        first := FCell;
      Inc(FCount);
      Inc(FCell);
    end
    else
    begin
      FMass[FFreeCell.I] := NewZveno(a);
      FMass[FFreeCell.I].Next := pos;
      if pos <> first then
        FMass[b].Next := FFreeCell.I
      else
        first := FFreeCell.I;
      DeleteFreeCell;
      Inc(FCount);
    end;
  end
  else
  begin
    Add(a);
    exit;
  end;
end;
 
function TCList.NewZveno(a: byte): Zveno;
var
  P: Zveno;
begin
  P.Inf := a;
  P.Next := -1;
  Result := P;
end;
 
procedure TCList.Print;
var
  i: integer;
begin
  i := first;
  while i <> -1 do
  begin
    Writeln(FMass[i].inf: 3, i: 7);
    i := FMass[i].Next;
  end;
end;
 
procedure TCList.SetInf(pos: integer; a: byte);
begin
  FMass[GetZveno(pos)].Inf := a;
end;
 
///   Ï   Ð   Î   Â   Å   Ð   Ê   À                                                        ///   Ï   Ð   Î   Â   Å   Ð   Ê   À
 
var
  Clist: TCList;
  k, n: integer;
begin
  Clist := TCList.Create();
  for k := 0 to 10000 do
  begin
    n := random(Clist.Count);
    case random(1) of
      0: Clist.Add(Random(254) + 1);
      1:
        begin
          Clist.Delete(n);
          //CList.Insert(n,111);
        end;
    end;
  end;
  for k := 0 to 0 do
    CList.Delete(random(Clist.Count));
  Clist.Print;
  writeln;
  writeln('Count  ', Clist.Count, '  First ', Clist.first, '   Cell ',
    Clist.FCell);
  writeln;
 
  {while Clist.FFreeCell <> nil do
  begin
    writeln(Clist.Items[Clist.FFreeCell.i]: 5, '  Free   ', Clist.FFreeCell.i:
      5);
    Clist.FFreeCell := Clist.FFreeCell.n;
  end;                        }
  Clist.Destroy;
  readln;
end.