Отсортировать массив по возрастанию

const
  m = 10;
var
  a : array [1..m] of Integer;
  i,j,k : Integer;
 
begin
  Randomize;
  write ('isx mass');
  for i := 1 to m do
  begin
    a[i] := Random (100);
    write ( a[i]:4);
  end;
  Writeln; Writeln;
   
   
   for i := 1 to m-1 do
     for j := 1 to m-i do
       if a[j] > a[j+1] then
         begin
           k := a[j];
           a[j] := a [ j+1 ];
           a [ j+1 ] := k;
         end;
  Writeln ('ots mass');
  for i := 1 to m do
     write ( a[j],' ');
  
end.

    (*******************************************************
    Процедура для сортировки массива.
    Принимает:
        *массив значений a с индексами элементов от 0 до N-1
        *число элементов N
    *******************************************************)
    procedure BubbleSort(var Arr : array of Real; const N : Integer);
    var
        I   :   Integer;
        J   :   Integer;
        Tmp :   Real;
    begin
        for i:=Pred(N) downto 1 do
            for j:=0 to Pred(i) do
                if Arr[j]>=Arr[j+1] then
                begin
                    Tmp:=Arr[j];
                    Arr[j]:=Arr[j+1];
                    Arr[j+1]:=Tmp;
                end;
    end;

  for i:=1 to m do
    for j:=i+1 to m do
      if a[i]>a[j] then
      begin
        k:=a[i];
        a[i]:=a[j];
        a[j]:=k;
      end;

for i := 1 to m do
     write ( a[i],' ');//не j
 
end.