Program rmatrixok;
uses crt,rmatrix;
Type Tritkaelem=record
                ertek:Tmatrixelem;
                sor, oszlop:integer;
                end;
     Tritkamatrix=record
                sor,oszlopdb,sordb:integer;
                rmatrix:array[0..max] of Tritkaelem;   {Valojaban 1-tol, de a folosleges elemet taroljuk a 0. helyen}
                end;