Как упорядочить массив по возрастанию в pascal?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

var
    arr: array[1..m] of integer;
    i, j, k: integer;
 
begin 
    ...

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