{_Ujfajta Rekord Tipus}

Type Tritka =object            {Muveleteit is megadhatjuk}
        db:integer;
        sordb,oszlopdb:integer;
        rmatrix:array [  ] of integer;
     Public
       procedure init (elem:Tmatrixelem);   {A fv-ek, eljarasok felsorolasa, amik kivulrol elerhetoek}
       procedure beelem(elem:Tritkaelem);
       procedure bematrix;  {Belul vagyunk az adatszerkezeten}
       {...}
     Private
      function index(i,j:integer);

      End;

r.db;
r.init(0);

{Ez jo, mert lesznek olyan eljarasok, melyeket tobbszor is hasznalunk, igy az ahhoz kapcsolodoval csinalhatjuk! Nem kell megirni!)}

Procedure inic(elem:Telem);
{--> Procedure Tritka.inic();}
-