Матрица целых чисел(n, m).Сортировка произведений столбцов.

[zips]

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

Начало я осилил:

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

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

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

FOR j=1 to N 'перебираем все столбцы

А что делать далее, я не разобрался.Прошу помочь