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

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

program SortArray;

const
N = 15; // размер массива

var
i, j, temp: integer;
arr: array[1..N] of integer;

begin
randomize;

// заполнение массива случайными числами
for i := 1 to N do
arr[i] := random(51); // числа от 0 до 50

// сортировка массива пузырьком
for i := 1 to N-1 do
for j := 1 to N-i do
if arr[j] > arr[j+1] then
begin
temp := arr[j];
arr[j] := arr[j+1];
arr[j+1] := temp;
end;

// вывод отсортированного массива
for i := 1 to N do
writeln(arr[i]);
end.