Напишите номер для повторной пересдачи данных , полученных через один порт, на все остальные его порты ОЧЕНЬ

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var (n,m): =readinteger2('количество строк и столбцов в матрице: ');   var k: =readinteger('номер строки k для обмена: ')-1;   writeln('*** исходная матрица ***');   var rmatr: =matrrandom(n,m,-99,99);   rmatr.println(4); writeln(4*rmatr.colcount*'-');   var j: =0;   for var i: =1 to min(n,m)-1 do       if rmatr[i,i]> rmatr[j,j] then j: =i;   if k< > j then rmatr.swaprows(k,j);   writeln('*** полученная матрица ***');   rmatr.println(4) end. пример количество строк и столбцов в матрице: 7 8 номер строки k для обмена: 3 *** исходная матрица ***   -53    6 -57 -39  41  56  43  36   79 -57 -69 -67 -70  29  25 -87   -70  84 -29 -47 -43 -79  97 -45   99  48 -92 -22 -17    8  57  -9   -12 -58 -73  -5 -12 -76 -90  87   -93 -31 -18  65 -77  27 -43  98   -61  -2 -23 -73  72 -93  20 -73 *** полученная матрица ***   -53    6 -57 -39  41  56  43  36   79 -57 -69 -67 -70  29  25 -87   -93 -31 -18  65 -77  27 -43  98   99  48 -92 -22 -17    8  57  -9   -12 -58 -73  -5 -12 -76 -90  87   -70  84 -29 -47 -43 -79  97 -45   -61  -2 -23 -73  72 -93  20 -73