FreeBasic.Дана матрица целых чисел X(n,m) Упорядочить ее строки по возрастанию последних элементов строк

Const MAX_CELL_VALUE As Integer = 265
 
Type MATRIX As Integer Ptr Ptr
 
Function CreateMatrix(Columns As Integer, Rows As Integer)As MATRIX
    Dim X As MATRIX = Allocate(Rows * SizeOf(Integer Ptr))
    
    For j As Integer = 0 To Rows - 1
        X[j] = Allocate(Columns * SizeOf(Integer))
        
        For i As Integer = 0 To Columns - 1
            X[j][i] = CInt(MAX_CELL_VALUE * Rnd())
        Next
    Next
    
    Return X
    
End Function
 
Sub DestroyMatrix(X As MATRIX, Columns As Integer, Rows As Integer)
    For j As Integer = 0 To Rows - 1
        Deallocate(X[j])
    Next
    Deallocate(X)
End Sub
 
Sub PrintMatrix(X As MATRIX, Columns As Integer, Rows As Integer)
    For j As Integer = 0 To Rows - 1
        For i As Integer = 0 To Columns - 2
            Print X[j][i],
        Next
        Print X[j][Columns - 1]
    Next
End Sub
 
Sub BubbleSortMatrixOfMainColumn(X As MATRIX, Rows As Integer, MainColumn As Integer)
    For j As Integer = 0 To Rows - 2
        Dim ExitFlag As Boolean = True
        
        For i As Integer = 0 To Rows - j - 2
            If X[i][MainColumn] > X[i + 1][MainColumn] Then
                Swap X[i], X[i + 1]
                ExitFlag = False
            End If
        Next
        
        If ExitFlag Then
            Exit For
        End If
    Next
End Sub
 
Dim n As Integer
Print "Введи количество столбцов матрицы"
Input n
 
Dim m As Integer
Print "Введи количество строк матрицы"
Input m
 
Dim X As MATRIX = CreateMatrix(n, m)
 
Print "Исходная сгенерированная матрица"
PrintMatrix(X, n, m)
 
BubbleSortMatrixOfMainColumn(X, m, n - 1)
 
Print "Отсортированная матрица по последнему столбцу"
PrintMatrix(X, n, m)
 
DestroyMatrix(X, n, m)
Print "Матрица удалена, память уничтожена"

CONST MAXVALUE = 99, MINVALUE = 10
 
DIM i AS INTEGER, j AS INTEGER, n AS INTEGER, m AS INTEGER
RANDOMIZE TIMER
n = 10 'Input n
m = 12 'Input m
DIM a(i TO n, 1 TO m) AS INTEGER, ai(1 TO n) AS INTEGER
PRINT "matrix"
FOR i = 1 TO n
    ai(i) = i
    FOR j = 1 TO m
        a(i, j) = INT(RND * (MAXVALUE - MINVALUE + 1) + MINVALUE)
        PRINT a(i, j);
    NEXT j
    PRINT
NEXT i
FOR i = 1 TO n - 1
    FOR j = i + 1 TO n
        IF a(ai(i), m) > a(ai(j), m) THEN SWAP ai(i), ai(j)
NEXT j, i
 
PRINT "sorted matrix"
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT a(ai(i), j);
    NEXT j
    PRINT
NEXT i