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

Var A:array[1..100,1..100]of Integer;
k1,k2,n,m,r,i,j:integer;
Begin
Randomize;
Writeln('Введите кол-во строк');
Readln(n);
Writeln('Введите кол-во стобцов');
Readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
A[i,j]:=random(15);
Write(A[i,j]:4);
End;
Writeln;
End;
Writeln('Введите номера столбцов, которые необходимо поменять местами');
Readln(k1,k2);
for i:=1 to m do begin
r:=A[i,k1];
A[i,k1]:=A[i,k2];
A[i,k2]:=r
End;
for i:=1 to n do begin
for j:=1 to m do
Write (A[i,j]:4);
Writeln;
End;
end.

var a:array[1..100,1..100]of Integer;
    n,m,i,j,k,x:integer;
begin
randomize;
writeln('Исходная матрица');
write('Введите кол-во строк n=');
readln(n);
writeln('Введите кол-во стобцов m=');
readln(m);
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,1]>a[j,1] then
for k:=1 to n do
 begin
  x:=a[i,k];
  a[i,k]:=a[j,k];
  a[j,k]:=x;
 end;
writeln('Перестановка строк по возрастанию элементов первого столбца');
for i:=1 to n do
 begin
  for j:=1 to m do
  write (a[i,j]:4);
  writeln;
 end;
end.