CREATE OR REPLACE PROCEDURE najlepszy_student(im OUT VARCHAR2, naz OUT VARCHAR2, nr OUT INTEGER, srednia OUT INTEGER)
IS
CURSOR najlepszy IS SELECT OCENA.ID_STUDENT,AVG(OCENA.OCENA) "Ocena" FROM OCENA GROUP BY OCENA.ID_STUDENT ORDER BY "Ocena" DESC;
st STUDENT%ROWTYPE;
id_studenta INTEGER(5);
sr INTEGER(5,4);
sr2 INTEGER(5,4);
excpt EXCEPTION;
BEGIN
OPEN najlepszy;
FETCH najlepszy INTO id_studenta,sr;
SELECT * INTO st FROM STUDENT WHERE ID_STUDENT=id_studenta;
im:=st.IMIE;
naz:=st.NAZWISKO;
nr:=st.NRALBUMU;
srednia:=sr;
IF najlepszy%FOUND THEN
FETCH najlepszy INTO id_studenta,sr2;
    IF sr2=sr THEN

        RAISE excpt;
    END IF;
END IF;
CLOSE najlepszy;
EXCEPTION
WHEN excpt THEN
DBMS_OUTPUT.put_line('Wiecej niz jeden student ze srednia: ' || TO_CHAR(sr));

END;