Сортировка столбцов матрицы по порядку возрастания элементов первой строки

uses crt;
const n=3;
m=3;
var
a:array[1..100,1..100] of integer;
i,j:integer; c:integer;
begin
clrscr;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(100)+3;
write(a[i,j]:3); writeln;
end;
for j:=1 to n do
if a[1,j]>a[1,j+1] then
begin
for i:=1 to m do
c:=a[1,j]; a[1,j]:=a[1,j+1]; a[1,j+1]:=c;
end;
for i:=1 to n do
for j:=1 to m do
write(a[i,j]:4);
readkey;
end.

uses crt;
const n=3; {зачем две одинаковых константы?}
m=3;
var
a:array[1..100,1..100] of integer;{если объявлены константы, зачем 100?}
i,j:integer; c:integer;{зачем два раза переменные одного типа?}
begin
clrscr;
{нужно randomize;}
for i:=1 to n do {неправильно, смотри у меня}
for j:=1 to m do
begin
a[i,j]:=random(100)+3;
write(a[i,j]:3); writeln;
end;
for j:=1 to n do  {неправильно смотри у меня}
if a[1,j]>a[1,j+1] then
begin
for i:=1 to m do
c:=a[1,j]; a[1,j]:=a[1,j+1]; a[1,j+1]:=c;
end;
for i:=1 to n do {неправильно, смотри у меня}
for j:=1 to m do
write(a[i,j]:4);
readkey;
end.

uses crt;
const n=5;
m=6;
var
a:array[1..n,1..m] of integer;
i,j,k,c:integer;
begin
clrscr;
randomize;
writeln('Ishodnaja matrica:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100)+3;
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m-1 do
for k:=1 to m-1 do
if a[1,k]>a[1,k+1] then
begin
for i:=1 to n do
begin
c:=a[i,k];
a[i,k]:=a[i,k+1];
a[i,k+1]:=c;
end;
end;
writeln('Sortirovra:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
readkey;
end.