Двумерные массивы, Упорядочить по к-ой строке Опции

[vadim(b)]

Упорядочить столбцы матрицы a[m,n] в порядке возрастания к-ой строки. Не давно с вашей помощью и ващим faq-ом сделел её, но преподы сказали что этот вариант слишком сложен. И в общих словах получилось вот-так:

var
a:array[1..100,1..100] of integer;
min,k,n,m,i,j:integer;
begin
randomize;

readln(n);
readln(m);
for i:=1 to n do begin
 for j:=1 to m do
 begin
a[i,j]:=random(10);
write(a[i,j]:3);
 end; writeln;
end;
 readln(k); 
for i:=1 to n-1 do
 for j:=1 to m-1 do
  if a[k,j]>a[k,j+1] then

for k:=1 to m do  begin //я думаю что броблема в этом цикле

min:=a[k,j];
a[k,j]:=a[k,j+1];
a[k,j+1]:=min
end;
for i:=1 to n do begin
 for j:=1 to m do
 begin
write(a[i,j]:3);
 end;
writeln;
end;
readln;
end.

НО вот проблема- без того цикла упорядовачивается только 1 строка, а с этим циклом передвигаются столбцы но только как-то не повозрастанию, найдите ошибку плиз к понедельнику надо сделать.