сделать (в бэйсике) сортировку чисел, массив (100), по убыванию и составить блок схему

10 DIM a(100)15 PRINT "неотсортированный массив"20 FOR i = 1 TO 10030 a(i) = RND * 10040 PRINT a(i)50 NEXT i60 FOR i = 1 TO 9970 FOR j = i + 1 TO 10080 IF a(i) > a(j) THEN GOTO 12090 p = a(i)100 a(i) = a(j)110 a(j) = p120 NEXT j130 NEXT i135 PRINT "отсортированный массив"140 FOR i = 1 TO 100150 PRINT a(i)160 NEXT i