Технический форум - Массив, сортировка

Здравствуйте! рошу помощи в решении задачи
Дана матрица целых чисел 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