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

uses crt;
const nmax=20;
      p=3;
var a:array[1..nmax,1..p] of integer;
    n,m,k,i,j,q,x:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
writeln('Введите номера строк для перестановки, от 1 до ',n,' k<>m');
readln(k,m);
until(k in [1..n])and(m in [1..n])and(k<>m);
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to p do
    begin
     a[i,j]:=random(20);
     if i=m then textcolor(12){выделим цветами строки для перестановок}
     else if i=k then textcolor(13)
     else textcolor(15);
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
textcolor(15);{восстановим белый(по умолчанию)}
if k=m+1 then write('Строки стоят на месте'){если уже нормально}
else
 begin
  if m>k then x:=k else x:=k+1;{если m ниже k, то убирать будем к, иначе к+1}
  n:=n+1;{добавим строку}
  for j:=1 to p do
  for i:=n downto m+2 do{раздвинем матрицу после строки m}
  a[i,j]:=a[i-1,j];
  for j:=1 to p do{вставим за ней строку к}
  a[m+1,j]:=a[x,j];
  for j:=1 to p do{обратно сдвинем, но уже к строке к}
  for i:=x to n-1 do
  a[i,j]:=a[i+1,j];
  n:=n-1;{уберем лишнюю строку}
 end;
writeln('Перестановка строки ',k,' после строки ',m);
for i:=1 to n do
 begin
  for j:=1 to p do
   begin
    if k>m then{если m ниже}
     begin
      if i=m then textcolor(12){она останется на месте}
      else if i=m+1 then textcolor(13){строка к под ней}
      else textcolor(15);
     end
    else{если выше}
     begin
      if i=m-1 then textcolor(12){поднимется на 1}
      else if i=m then textcolor(13){на ее место строка к}
      else textcolor(15);
     end;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln;
textcolor(15);
end.