CREATE OR REPLACE PROCEDURE AAA(p_idRocnik Rocnik.idRocnik%TYPE, p_id_tym Tym.idTym%Type, p_hrac HRAC.POST%TYPE)
AS
TYPE dymamic IS TABLE OF hrac%ROWTYPE;
CURSOR c_hrac IS
  SELECT hr.idHrac, hr.jmeno, hr.prijmeni, hr.body, hr.post
    FROM Hrac hr
      JOIN TymHrac thr ON thr.idHrac = hr.idHrac
        JOIN Tym tm  ON thr.idTym = tm.idTym
          JOIN Ucastnik uc ON  tm.idTym = uc.idTym
            WHERE uc.idRocnik = p_idRocnik AND uc.idTym = p_id_tym AND hr.post = p_hrac;

 v_body hrac.body%TYPE;
 v_pole dymamic;
 v_num number;

BEGIN
  v_num := 0;

  FOR counter IN c_hrac
  LOOP
   v_num := v_num + 1 ;
   v_pole(v_num) := counter;
  END LOOP;

  DBMS_OUTPUT.PUT_LINE('test');
  SELECT body INTO v_body FROM v_pole;
END AAA;

Set Serveroutput on
EXECUTE  AAA(1,13, 'c');