function [pkom,ppr,jn,poslcast]=tvor(cpk,ipndp,kom,s,jn)

%predpokladany vstup: cislo podkapitoly = cpk
%                     poradi komentare a prikladu v podkapitole  

cpr=[];
ckom=[];
poslcast=0;
j=ipndp(cpk)+3+jn;

  while kom(j)==1
    ckom=[ckom,j];
    j=j+1;
  end
  pkom=s(ckom);

  nkom=length(ckom);
  for i=1:nkom
    pk=pkom{i};
    pk=pk(3:end);
    pkom{i}=pk;
  end


  while kom(j)==0
    cpr=[cpr,j];
    j=j+1;
  end   
  ppr=s(cpr);

  jn=j-3 - ipndp(cpk);
  if jn+ipndp(cpk)==ipndp(cpk+1)
    dalehandl=findobj('Tag','PushbuttonDale');
    set(max(dalehandl),'Enable','off');
    poslcast=1;
    jn=0;
    nppr=length(ppr);
    ppr=ppr(1:nppr-3);
  end
