Помогите составить блок-схему( Basic)

[ncccn]

Дана квадратная матрица 6*6
Найти количество чисел, меньших 7.5 среди элементов матрицы лежащих выше главной диагонали. Найти столбец, в котором разность среднего арифметического и первого элемента больше величины С.
программа(возможно не точно,но по другому не знаю как)
DEFINT A-Z
Dim A( 6 , 6 ) As Single, C As Double
Dim SrAr As Double, Sr As Double
RANDOMIZE TIMER
CLS
PRINT "Ishodnaya matrica: "
C = RND * 10
For iy = 1 To 6
For ix = 1 To 6
A(ix, iy) = RND * 15
PRINT Using " ##.##"; A(ix, iy);
Next: PRINT
Next
LOCATE 15: PRINT "Srednee arifmeticheskoe stolbcov"
For ix = 1 To 6
For iy = 1 To 6
If ix > iy Then COLOR 10 Else COLOR 12
LOCATE iy + 8, ix * 6 - 5
If ix > iy And (A(ix, iy) < 7.5) Then k = k + 1: COLOR 14
SrAr = SrAr + A(ix, iy)
PRINT Using " ##.##"; A(ix, iy);
Next: SrAr = SrAr / 6
If SrAr - A(ix, 1) > C Then N = ix: Sr = SrAr
COLOR 11
LOCATE 16, ix * 6 - 5: PRINT Using " ##.##"; SrAr
SrAr = 0
Next: COLOR 14
PRINT "Kol-vo chisel : "; k: COLOR 7
If N > 0 Then PRINT "Srednee arifm. stolbca ="; Sr
PRINT "C ="; C
PRINT "Nomer stolbca : ";
If N > 0 Then PRINT N Else PRINT "Netu"
End