в двумерном массиве [1..6,1..7] поменять местами 1 и 2, 3 и 4, 5 и 6 строки.

begin
  Writeln('*** Исходный массив [6,7] ***');
  var a:=MatrRandom(6,7,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('*** Результирующий массив [6,7] ***');
  for var i:=0 to 2 do a.SwapRows(2*i,2*i+1);
  a.Println(4)
end.


*** Исходный массив [6,7] ***
  16 -26 -12  33  39 -28  -6
  15 -77  15  63 -30 -59 -62
 -14  -3 -94  42  49  86  95
 -74  75 -69 -44 -43  -2 -62
 -68  82 -36 -30 -92 -88  34
 -34  16  81 -67   4  -8  80
----------------------------
*** Результирующий массив [6,7] ***
  15 -77  15  63 -30 -59 -62
  16 -26 -12  33  39 -28  -6
 -74  75 -69 -44 -43  -2 -62
 -14  -3 -94  42  49  86  95
 -34  16  81 -67   4  -8  80
 -68  82 -36 -30 -92 -88  34