задача на Delphi по двумерным массивам

[Saka]

Дана целочисленная матрица A (n,m). Упорядочить по возрастанию элементы каждого столбца матрицы (БЕЗ ПРОЦЕДУР)

[IT-man]

uses
  SysUtils;
type matrix = array[1..100,1..100] of Integer;
var a:matrix;
    m,n,i,j:Integer;
procedure SortStolb(var b:matrix;k:integer);
var i1:integer;
    swop:boolean;
       l:Integer;
procedure exchange(var x,y:integer);
var c:integer;
  begin
    c:=x;
    x:=y;
    y:=c;
  end;

begin
  l:=n ;
  repeat
    swop:=false;
    for i1:=1 to l-1 do
      if b[i1,k]>b[i1+1,k] then begin
        exchange(b[i1,k],b[i1+1,k]);
        swop:=true;
      end;
    l:=l-1;
  until not swop;
end;
begin
  writeln('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(20);
      write(a[i,j]:4);
    end;
    Writeln;
  end;
  Writeln('----------------');
  for j:=1 to m do
    SortStolb(a,j);
  for i:=1 to n do begin
    for j:=1 to m do
      write(a[i,j]:4);
    Writeln;
  end;
  Readln;
end.

[Saka]

Люди напишите пожалуйста мне код БЕЗ ПРОЦЕДУР