Преобразовать целочисленную матрицу размера n x m таким образом, чтобы строка с номером k непосредственно следовала за строкой с номером q, сохранив порядок следования остальных строк

// pascalabc.net 3.3, сборка 1600 от 23.12.2017 // внимание! если программа не работает, обновите версию! begin   var (n,m): =readinteger2('количество строк и столбцов в матрице: ');   writeln('*** исходная матрица ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var (q,k): =readinteger2('укажите номера строк q и k: ');   assert((k< > q) and k.between(1,n) and q.between(1,n),'неверная пара (q,k)');   k-=1; q-=1; // перешли к индексам   var rk: =a.row(k);   if k< q then begin       for var r: =k+1 to q do a.setrow(r-1,a.row(r));       a.setrow(q,rk)       end   else begin       for var r: =k-1 downto q+1 do a.setrow(r+1,a.row(r));       a.setrow(q+1,rk)       end;   writeln('*** результат ***'); a.println(4) end. примеры количество строк и столбцов в матрице: 5 8 *** исходная матрица ***   32  -6 -66  81  84    0  50 -83   93    5  90 -33  88  30  -5  85   -46  35 -22  74 -66    8  -3 -86   -23 -81 -82  30  -1 -71  28  19     0 -95 -30 -46 -24 -77  38  49 укажите номера строк q и k: 4 1 *** результат ***   93    5  90 -33  88  30  -5  85   -46  35 -22  74 -66    8  -3 -86   -23 -81 -82  30  -1 -71  28  19   32  -6 -66  81  84    0  50 -83     0 -95 -30 -46 -24 -77  38  49 количество строк и столбцов в матрице: 4 3 *** исходная матрица ***   -68  53 -35   -83  78 -78   99  -4  -9   -86  11 -30 укажите номера строк q и k: 2 4 *** результат ***   -68  53 -35   -83  78 -78   -86  11 -30   99  -4  -9

Толя из москвы, витя из санкт-петербурга,юра из новгорода, коля из перми, алеша из томска