Отсортировать в матрице столбцы по возрастанию значений элементов в строке с номером, заданным пользователем

writeln('Введите номер строки, по возрастанию элементов которой требуется отсортировать столбцы матрицы:');
readln(string_number);
for i:=1 to m do begin
    v:=matrix[string_number,i];
    j:=i-1;
    while (j>=1) and (matrix[string_number,j] > v) do begin
          matrix[string_number,j+1]:=matrix[string_number,j];
          j:=j-1;
          matrix[string_number,j+1]:=v;
          end;
    end;

for i:=2 to n do{по строке}
 begin
  buf:=mt[string_number,i];{запоминаем элемент в заданной строке}
  for k:=1 to m do
  p[k]:=mt[k,i]; {элементы на тех же позициях в остальных строках}
  j:=i-1;{смотрим элемент перед ним}
  while (j>=1) and (mt[string_number,j]>buf) do
  {пока не дошли до первого и элемент больше начального}
   begin
    mt[string_number,j+1]:=mt[string_number,j];{сдвигаем вправо}
    for k:=1 to m do
    mt[k,j+1]:=mt[k,j];{то же с элемнтами в других строках}
    j:=j-1;{следующий влево элемент}
   end;
  mt[string_number,j+1]:=buf;{вставляем элемент на место}
  for k:=1 to x do
  mt[k,j+1]:=p[k];{то же с элементами в других строках}
 end;

for i:=1 to m do begin

for i:=2 to m do begin
    v:=matrix[string_number,i];
    j:=i-1;
    while (j>=1) and (matrix[string_number,j] > v) do begin
          matrix[string_number,j+1]:=matrix[string_number,j];
          j:=j-1;
          matrix[string_number,j+1]:=v;
 
    for k:=1 to string_number-1 do begin
        buf:=matrix[k,j+2];
        matrix[k,j+2]:=matrix[k,j+1];
        matrix[k,j+1]:=buf;
    end;
        for k:=string_number+1 to n do begin
        buf:=matrix[k,j+2];
        matrix[k,j+2]:=matrix[k,j+1];
        matrix[k,j+1]:=buf;
    end;
    
    end;
end;