PROCEDURE Hash(elem: InfoTip) : CARDINAL;
CONST
    baza = 1717;
VAR
    zbir : CARDINAL;
    broj : CARDINAL;
    i    : CARDINAL;
BEGIN
    i    := 1;
    zbir := 0;
    broj := 0;
    WHILE (elem[i] # 0C) AND (i <= MaxDuzRec) DO
        zbir := zbir + ((ORD(elem[i]))*broj) MOD baza;
        broj := broj + ORD(elem[i]);
        INC(i);
    END;
    RETURN zbir;
END Hash;