Все элементы, расположенные в отмеченных строках матрицы, преобразовать по правилу - QBasic

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

CLS
INPUT "Vvedite razmernost matrix"; m
DIM x(m, m) AS INTEGER

FOR i = 1 TO m
    FOR j = 1 TO m
        x(i, j) = 40 * RND
    NEXT
NEXT
PRINT x

На моменте создания матрицы я застрял,задание дальше : Строка начинающаяся на отрицательный элемент называется отмеченной : Нужно все элементы, расположенные в отмеченных строках матрицы, преобразовать по правилу: отрицательные элементы заменить на -1, положительные — на +1, а нулевые оставить без изменения.

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

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

CLS
CONST n = 12
DIM a(1 TO n, 1 TO n) AS INTEGER
 
DIM b(1 TO n, 1 TO n) AS INTEGER
 
FOR i = 1 TO n
    FOR j = 1 TO n
        a(i, j) = 100 * RND - 50
        PRINT USING "####"; a(i, j);
    NEXT j: PRINT
NEXT i: PRINT
 
 
FOR i = 1 TO 12
    FOR j = 1 TO 12
        IF a(i, j) < 0 THEN
        a(i, j) = -1
        ELSEIF a(i, j) > 0 THEN
    a(i, j) = 1
        END IF
        NEXT j, i
        PRINT a(i, j)
       END

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

В этом коде:

Объявляются две матрицы a и b, размерностью n на n, где n = 12.
В каждой ячейке матрицы a случайным образом, с помощью функции RND, генерируется случайное число от 0 до 100.
Выводится на экран каждая ячейка матрицы a с помощью цикла и функции PRINT.
Для каждой ячейки матрицы a проверяется её значение. Если оно отрицательное, то значение устанавливается равным -1. Если положительное, то значение устанавливается равным 1.
С помощью цикла и функции PRINT выводятся на экран значения ячеек матрицы a.