Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером

CLS
INPUT "Vvedite n="; n
INPUT "Vvedite m="; m
DIM a(1 TO n, 1 TO m), new1(1 TO n + 1, 1 TO m), new2(1 TO n + 1, 1 TO m + 1)
PRINT "Massiv"
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(RND * 100 - 50)
PRINT a(i, j);
NEXT j
PRINT
NEXT i
PRINT
DO
PRINT "Vvedite k1 ot 1 do "; n; "=";
INPUT k1
LOOP UNTIL k1 <= n
DO
PRINT "Vvedite k2 ot 1 do "; m; "=";
INPUT k2
LOOP UNTIL k2 <= m
 
FOR i = 1 TO n
FOR j = 1 TO m
IF i < k1 THEN new1(i, j) = a(i, j)
IF i = k1 THEN new1(i, j) = 0
IF i >= k1 THEN new1(i + 1, j) = a(i, j)
NEXT j
NEXT i
PRINT
FOR i = 1 TO n + 1
FOR j = 1 TO m
IF j < k1 THEN new2(i, j) = new1(i, j)
IF j = k1 THEN new2(i, j) = 0
IF j >= k1 THEN new2(i, j + 1) = new1(i, j)
NEXT j
NEXT i
FOR i = 1 TO n + 1
FOR j = 1 TO m + 1
PRINT new2(i, j);
NEXT j
PRINT
NEXT i