-- wypełnianie tabeli danymi
DECLARE
    CURSOR c1 IS SELECT id_student, nazwisko, imie
        FROM studenci ;
    CURSOR c2 IS SELECT id_osrodek, nazwa_o
        FROM osrodki ;
    vx NUMBER;
    i NUMBER;
    vCourseColl StudCourseCollection ;
BEGIN
    FOR vc1 IN c1 LOOP
        vCourseColl := StudCourseCollection() ;
        i := 1 ;
        FOR vc2 IN c2 LOOP
        SELECT COUNT(NR_EGZ) INTO vx FROM EGZAMINY e
        WHERE e.id_student = vc1.id_student
        AND e.id_osrodek = vc2.id_osrodek;
        DBMS_OUTPUT.PUT_LINE(vc1.id_student || ' ' || vc2.id_osrodek || ' ' || vx);
            vCourseColl.extend ;
            vCourseColl(i):= StudCourseCredits(vc2.id_osrodek, vc2.nazwa_o, vx) ;
            i := i+1 ;
        END LOOP ;
        INSERT INTO Indeks VALUES (vc1.id_student, vc1.imie, vc1.nazwisko, vCourseColl) ;
    END LOOP ;
END ;