PROCEDURE Hash(elem: InfoTip) : CARDINAL;
CONST
    baza = 3001;
VAR
    zbir : INTEGER;
    broj : INTEGER;
    i    : INTEGER;
BEGIN
    i    := 1;
    zbir := 0;
    broj := 0;
    WHILE (i <= MaxDuzRec) AND (elem[i] # 0C) DO
        (* fiscsi foscsi
        zbir := (zbir + (CAST(INTEGER, ORD(elem[i]))*broj)) MOD baza;
        broj := broj + CAST(INTEGER, ORD(elem[i]));
        INC(i);
        *)
        zbir := zbir*baza;
        zbir := zbir + CAST(INTEGER, ORD(elem[i]));
        INC(i);
    END;
    RETURN ABS(zbir) MOD VelicinaTabele
END Hash;