В заданной матрице A(N, M) поменять местами строки с номерами К и Р

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017// Внимание! Если программа не работает, обновите версию!begin  var m:=ReadInteger('Количество строк в матрице:');  var n:=ReadInteger('Количество столбцов в матрице:');  var k,p:integer;  Write('Строки с какими номерами поменять? '); Read(k,p);  Writeln('*** Исходная матрица [',m,',',n,'] ***');  var a:=MatrRandom(m,n,-99,99);   a.Println(4); Writeln(4*a.ColCount*'-');  a.SwapRows(k-1,p-1);  Writeln('*** Матрица-результат ***');  a.Println(4)end.ПримерКоличество строк в матрице: 5Количество столбцов в матрице: 8Строки с какими номерами поменять? 2 5*** Исходная матрица [5,8] *** -79  16 -87 -77 -93  94 -21 -16 -63 -35  58 -52 -89 -54 -32 -65  16  23  72  99  39 -46  66 -80 -85  62 -29 -14  95  69 -58  -5 -70 -47 -25 -48  33  42 -82 -12--------------------------------*** Матрица-результат *** -79  16 -87 -77 -93  94 -21 -16 -70 -47 -25 -48  33  42 -82 -12  16  23  72  99  39 -46  66 -80 -85  62 -29 -14  95  69 -58  -5 -63 -35  58 -52 -89 -54 -32 -65