В матрице х упорядочить элементы строк по их убыванию — QBasic(Бейсик)

cls
input "Matrix:"; x,y 'ввод размера матрицы (х*у)
dim A(x,y)
 
for i=1 to x
for j=1 to y
input ; A(i,j)' ввод элементов матрицы
next j
print :
next i
 
cls: color 2
for i=1 to x
for j=1 to y
print using "### "; A(i,j); 'вывод матрицы
for k=1 to j
if A(i,k)<A(i,j) then swap A(i,k),A(i,j)'упорядочивание элементов строк в порядке убывания
next k
next j
print :
next i
 
color 4
for i=1 to x
for j=1 to y
print using "### "; A(i,j);' вывод результата
next j
print :
next i
end