Программа сортировки 10 чисел pascalABC

паскал скуела

program SortTenNumbersUsingBuiltIn;

uses
SysUtils, System;

const
N = 10;

var
numbers: array[1..N] of Integer;
i: Integer;

begin
writeln('Введите 10 целых чисел для сортировки:');
for i := 1 to N do
begin
write('Число ', i, ': ');
readln(numbers[i]);
end;

// Использование встроенной функции сортировки
TArray.Sort<Integer>(numbers);

writeln('Отсортированные числа:');
for i := 1 to N do
writeln(numbers[i]);
end.