В заданном массиве нужно перевернуть все четные строки массива - QBasic

Формулировка задачи:

Добрый день. Прошу в очередной раз о помощи. В заданном массиве нужно перевернуть все четные строки массива. Я написала программу, но она меняет строки 2 и 4 местами. А как перевернуть элемент строк? Строки при этом остаются на своих местах. Выложила файл программы в архиве. Помогите написать сортировку, пожалуйста

Решение задачи: «В заданном массиве нужно перевернуть все четные строки массива»

Листинг программы

cls: randomize timer
input "n=";n
input "m=";m
dim A(n,m)
 
for i=1 to n
 for j=1 to m
  A(i,j)=fix(rnd*51-25): print using "### "; A(i,j);'генерация произвольных значений элементов массива
 next j
 If i mod 2=0 then
  k=1:l=m
   while l>k
    swap A(i,k), A(i,l)' "переворот" чётных строк(swap-обменять значения переменных)
    k=k+1: l=l-1
   wend
  end if
 print
next i
 
color 2
for i=1 to n
 for j=1 to m
  print using "### "; A(i,j);
 next 
 print 
next i
end

Объяснение кода листинга программы

В этом коде выполняются следующие действия:

Задаются начальные значения переменных n и m (количество строк и столбцов в массиве).
Создается двумерный массив A размером n на m.
В каждой строке массива A генерируются случайные числа от -25 до 25 с шагом 5.
Для каждой четной строки i переворачиваются столбцы (поворот происходит в пределах строки).
Выводится на экран исходный массив A.
Выводится на экран перевернутый массив A.