Составить блок-схему для программки упорядочивания частей массива в QBasic.RANDOMIZE

Составить блок-схему для программки упорядочивания частей массива в QBasic.
RANDOMIZE TIMER
CLS
INPUT "n=", n
DIM a(n)
FOR i = 1 TO n
PRINT "a";
INPUT ":", a(i)
NEXT
FOR i = 1 TO n - 1
min = a(i): k = i
FOR y = i TO n
IF a(y) lt; min THEN min = a(y): k = y
NEXT
SWAP a(k), a(i)
NEXT
FOR i = 1 TO n
PRINT a(i);
NEXT