FileBlockShemEditorV2\^ \^ procedure NextVybor(m,n:integer; var x:array[1..m] of integer; End:Boolean); X. , End True, False.B$HJ  HJHJHtJv\^tvEnd:=False; i:=mB!V(x[i]>=n-(m-i))and(i>0)c:yesnxno6mJwi:=i-1i>0yesno&:x[i]:=x[i]+1; i:=i+1i<=myesnox[i]:=x[i-1]+1; i:=i+1cEnd:=True/cbegin$!:end44J       $3 &P^