PROCEDURE IzFajla(ime: ARRAY OF CHAR; VAR t: Tabela; VAR ok: BOOLEAN;
        VAR duplikata: CARDINAL; VAR losih: CARDINAL);
VAR
    f    : FIO.File;
    rec  : InfoTip;
    dupl : BOOLEAN;
BEGIN
    IF NOT FIO.Exists(ime) THEN
        ok:=FALSE;
    ELSE
        ok:=TRUE;
        f := FIO.Open(ime);
        WHILE NOT FIO.EOF DO
            dupl := FALSE;
            FIO.RdItem(f, rec);
            Ubaci(rec, t, dupl, ok);
            IF dupl THEN
                INC(duplikata)
            END
        END;
        FIO.Close(f)
    END;
END IzFajla;