нужно дорешать задачу на сортировку Опции

[AlexSt]

Дан двумерный массив целых чисел, содержащий n строк и m столбцов. Упорядочить массив по возрастанию элементов k-го столбца.

program sort_n29;
var a:array[1..100,1..100] of integer;
    i,j,n,k,m,j1,l,min,b:integer;
begin readln(n,k);
      for i:=1 to n do
      for j:=1 to k do
            readln(a[i,j])
      readln(j1);
      for i:=n downto 1 do
          begin min:=a[i,j1];
                for l:=1 to i-1 do
                if min>a[i,j1] then
                   begin for m:=1 to n do
                         begin b:=a[m,j1];
                               a[m,j]:=a[m,j];
                         min:=a[i,j1];

Что делать делать дальше?