TSample=record
a: array[0..7] of char;
b: integer;
c: boolean;
end;
Ezek után létrehozunk egy olyan algoritmust, melynek segítségével számtalan fenti rekord típust lehet eltárolni. Minden egyes létrehozásnál dinamikusan foglalunk az aktuális rekord számára memóriát és ekkor töltjük fel tetszőleges értékekkel.