Программа

'Перемена первой и второй строк в матрице
CONST NumberColumns = 4, NumberLines = 4      'Определение размерности матрицы
DIM A(1 TO NumberColumns, 1 TO NumberLines) AS INTEGER       'Описание матрицы

DECLARE SUB InputMatrix (Matrix() AS INTEGER)
DECLARE SUB OutputMatrix (Matrix() AS INTEGER)
DECLARE SUB MatrixProcessing (Matrix() AS INTEGER, Line1%, Line2%)

CALL InputMatrix(A())                                       'Ввод матрицы
PRINT                                                       'Пропуск строки
PRINT "Исходная матрица"                                    'Вывод заголовка
CALL OutputMatrix(A())                                      'Вывод матрицы
CALL MatrixProcessing(A(), 1, 2)                            'Обработка матрицы
PRINT                                                       'Пропуск строки
PRINT "Получаемая матрица"                                  'Вывод заголовка
CALL OutputMatrix(A())                                      'Вывод матрицы

SUB InputMatrix (Matrix() AS INTEGER)              'Процедура ввода матрицы
  DIM MeterLine, MeterColumn AS INTEGER            'Счетчики строк и столбцов
  FOR MeterLine = 1 TO NumberLines                 'Цикл ввода строк
    FOR MeterColumn = 1 TO NumberColumns           'Цикл ввода элементов
      PRINT "Введите элемент ["; MeterLine; ","; MeterColumn; "]";
                                     'Вывод приглашения ввести элемент матрицы
      INPUT Matrix(MeterLine, MeterColumn)         'Ввод элемента
    NEXT MeterColumn
  NEXT MeterLine
END SUB

SUB MatrixProcessing (Matrix() AS INTEGER, Line1%, Line2%)
                                          'Процедура обработки матрицы
  DIM MeterColumn AS INTEGER              'Счетчик столбцов
  DIM Buf AS INTEGER                      'Буфер для переноса элементов
  FOR MeterColumn = 1 TO NumberColumns    'Цикл просмотра матрицы вдоль строк
    'Перенос элементов матрицы:
    Buf = Matrix(Line1%, MeterColumn)
    Matrix(Line1%, MeterColumn) = Matrix(Line2%, MeterColumn)
    Matrix(Line2%, MeterColumn) = Buf
  NEXT MeterColumn
END SUB

SUB OutputMatrix (Matrix() AS INTEGER)             'Процедура вывода матрицы
  DIM MeterLine, MeterColumn AS INTEGER            'Счетчики строк и столбцов
  FOR MeterLine = 1 TO NumberLines                 'Цикл вывода строк
    FOR MeterColumn = 1 TO NumberColumns           'Цикл вывода элементов
      PRINT USING " ##### "; Matrix(MeterLine, MeterColumn); 'Вывод элемента
    NEXT MeterColumn
    PRINT                                          'Вывод конца строки
  NEXT MeterLine
END SUB