FileBlockShemEditorV2WYTAVCTV.0.W0YIKIK+-+-oqoqhjk:=n-1Xd(x[k]>x[k+1])and(k>0)yqyes|non}k:=k-1vb t:=k+1(tx[k])#$yes+not:=t+1? $((    %Sd$  y:=x[k]; x[k]:=x[t]; x[t]:=y; t:=0"=t0no~yesEnd:=True;NIPH#JPLKKJMIMHCUprocedure NextPerest(n:integer; var x:array[1..n] of integer; End:Boolean); X. , End True, False.D$