[angvelem]

Код:

type
  PMyRecord = ^TMyRecord;
  TMyRecord = record
    buf  : array[Byte];
    next : PMyRecord;
  end;

var
  MyRecord : PMyRecord = NIL;
...
procedure AddRecord;
var
  P : PMyRecord;
begin
  New(P);
  P^.next := MyRecord;
  P^.Buf[0] := 0;
  MyRecord := P;
end;
...
procedure ClearRecord;
var
  P : PMyRecord;
begin
  while MyRecord <> nil do
  begin
    P := MyRecord;
    MyRecord := P^.Next;
    Dispose(P);
  end;
end;

Вот тебе массив и вектор в одном флаконе. Дальше сам.