Массив, сортировка

[zips]

Массив, сортировка

Здравствуйте! рошу помощи в решении задачи
Дана матрица целых чисел X(n, т). Упорядочить ее столбцы по убыванию произведений их элементов. Вывести исходную и полученную матрицы. Значения буквенных переменных задавать с клавиатуры.

CLS

'Ввод матрицы X (NxN)

INPUT "N = "; N
DIM X(N, N) AS INTEGER

FOR i = 1 TO N
  FOR j = 1 TO N
    INPUT ; " "; X(i, j)
  NEXT j
  PRINT
NEXT i

'Вывод матрицы X
PRINT : PRINT

FOR i = 1 TO N
  FOR j = 1 TO N
    PRINT USING "#####"; X(i, j);
  NEXT j
  PRINT
NEXT i

Сделал только ввод и вывод первоначальной матрицы.Дальше прошу помочь.Язык FreeBasic