Поменять местами строки в матрице

var a,b:array.....
.......................
for i:=1 to n-1 do//матрица 2-b
for j:=2 to n do//матрица 1-а
for k:=1 to m do//столбцы
b[i,k]:=a[j,k];//присваиваем
for i:=1 to m do
b[n,i]:=a[1,i];//первый в последний

uses crt;
const nmax=20;
var a,b:array[1..nmax,1..nmax] of integer;
    n,m,i,j,k:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица A:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(41)+10;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
 
for j:=1 to m-1 do
for k:=1 to n do
b[j,k]:=a[j+1,k];
for i:=1 to n do
b[m,i]:=a[1,i];
writeln('Измененная матрица B:');
for i:=1 to m do
 begin
   for j:=1 to n do
   write(b[i,j]:4);
   writeln;
 end;
readln
end.