CREATE OR REPLACE FUNCTION test9(id INTEGER) RETURNS VARCHAR AS $$
DECLARE
 t VARCHAR;
  r integer;

 aktorzy_kursor CURSOR FOR SELECT id_aktora, imie FROM aktorzy;
 identyfikator_aktora aktorzy.id_aktora%TYPE;
 imie_aktora aktorzy.imie%TYPE;
 wynik VARCHAR(1000);
BEGIN
  SELECT tytul INTO t FROM filmy WHERE id_filmu = id;
  SELECT rok_produkcji INTO r FROM filmy WHERE id_filmu = id;


 wynik := '';
 OPEN aktorzy_kursor;

 LOOP
   FETCH aktorzy_kursor INTO identyfikator_aktora, imie_aktora;
   EXIT WHEN NOT FOUND;
   wynik := wynik || imie_aktora || ', ' ;
 END LOOP;
 CLOSE aktorzy_kursor;


 RETURN 'Film "' || t || '" zostal nakrecony w roku ' || r || ' przy udziale aktorow: ' || wynik;


END;
$$ LANGUAGE PLPGSQL;

SELECT test9(2);