{je definovany type function Neco(X,Y:pointer): byte, no a mel jsi vytvorit promennou typu
funkce Neco, ktera bude vracet 1, kdyz hodnota ^X bude vetsi nez ^Y, kdyz bude mensi tak -
1 a kdyz bude stejna tak 0}

function Compare(X, Y: Pointer): Shortint;
begin
if ^X = ^Y then
Compare := 0
else
if ^X > ^Y then
Compare := 1
else
Compare := -1;
end;


{Necht existuje trojuhelnikouva matice, Data se cetly z netextoveho souboru, nejpvrve pocet
rádku matice a pak jednodtliva data po rádcích matice. A mela se vytvorit funkce, která jako
parametry mela indexy rádku a sloupce a zjištovala jestli je na techto souradnicích hodnota
polícka nula}

function IsNull(M: matice; x, y: word): boolean;
begin
IsNull := M[x, y] = 0;
end;