Упорядочить строки матрицы по возрастанию первого элемента строки методом прямого включения

var a:array[1..10,1..10] of integer;
    x:array[1..10] of integer;//массив, буфер для вставки
    m,n,i,j,k,p:integer;
begin
repeat
writeln('Введите количество строк и столбцов от 2 до 10');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=2 to m do
 begin
  for k:=1 to n do
  x[k]:=a[i,k];
  j:=1;//смотрим что сверху в первом столбце
  while x[1]>a[j,1] do inc(j);//пока все меньше данного, идем вниз
  for p:=i-1 downto j do//нашли меньший, сдвигаем строки вниз на эту строку-1
  for k:=1 to n do
  a[p+1,k]:=a[p,k];
  for k:=1 to n do //вставлем данную строку на место
  a[j,k]:=x[k];
 end;
writeln('Перестановка строк по возрастанию первых элементов');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.