Задан массив 15 случайных чисел из отрезка (0,50). Отсортировать данный массив по возрастанию (программа Паскаль)

Предыдущий
вопрос Следующий
вопрос

program SortArray;

var
arr: array[1..15] of Integer;
i, j, tmp: Integer;

begin
{заполняем массив случайными числами от 0 до 50}
Randomize;
for i := 1 to 15 do
arr[i] := Random(51);

{сортируем массив по возрастанию}
for i := 1 to 14 do
for j := i + 1 to 15 do
if arr[i] > arr[j] then
begin
tmp := arr[i];
arr[i] := arr[j];
arr[j] := tmp;
end;

{вывод отсортированного массива}
for i := 1 to 15 do
Write(arr[i], ' ');

Readln;
end.