Сортировка массива способом бинарных вставок

uses crt;
const n1 = 10; m1=10;
var a: array [1..n1,1..m1] of integer;
i,j,x,sred,h,left,right,n,m,c,p,k: integer;
begin
write('введите m стобцов ');{ввод матрицы}
readln(m);
write('введите n строк ');
readln(n);
randomize;
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   A[i,j]:=random(10);
  end;
 end;                 {вывод матрицы обычной}
 {------------------------------------------------------------}
 writeln('обычная матрица:');
  for i:=1 to n do
 begin
  for j:=1 to m do
    write(' ',A[i,j], ' | ');
    writeln;
 end;
                      {изменение матрицы}
 {------------------------------------------------------------}
 
    for i:=2 to n do
     if a[i-1,1] > a[i,1] then begin
         x:=a[i,1];
         left:=1; right := i-1;
    repeat
         sred:= (left + right) div 2;
         if a[sred,1] < x then
         left:= sred+1
    else right:= sred-1;
    until left > right;
       for p:= i-1 downto left  do
          a[p+1,1]:= a[p,1];
          a[left,1]:=x;
             for j:=2 to m do begin     {замена строк}
                 c:=a[i-1,j];
                 a[i-1,j]:= a[i,j];
                 a[i,j]:=c ;
                end;
 
              end;
 
 
{------------------------------------------------------------}
          
                 {вывод измененной матрицы}
 {------------------------------------------------------------}
 
 
writeln('измененная матрица:');
 
for i:=1 to n do
 begin
 for j:=1 to m do
  write(' ',A[i,j],' | ');
  writeln;
 end;
end.