Отсортировать массив в порядке неубывания - Pascal ABC

Формулировка задачи:

Дан целочисленный массив, содержащий не менее 25 элементов. Отсор-тировать массив в порядке неубывания с помощью института указателей языка PASCAL. Help

Решение задачи: «Отсортировать массив в порядке неубывания»

Листинг программы

const nmax=100;
type uc=^array[1..nmax] of integer;//указатель на массив
var a: uc;
    n,i,j,x:integer;
begin
randomize;
repeat
write('Размер массива от 25 до ',nmax,' n=');
readln(n);
until n in [25..nmax];
new(a);//выделим память под массив
for i:=1 to n do
 begin
  a^[i]:=random(100); //передаем значение элементов
  write(a^[i]:4);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a^[i]>a^[j] then
 begin
  x:=a^[i];
  a^[i]:=a^[j];
  a^[j]:=x;
 end;
writeln('Отсортированный массив');
for i:=1 to n do
write(a^[i]:4);
dispose(a) //освобождаем память
end.

Объяснение кода листинга программы

В начале кода объявляются необходимые переменные: nmax (максимальное количество элементов в массиве), uc (тип данных для указателя на массив), a (указатель на массив), n (количество элементов в массиве), i, j, x (переменные для цикла сортировки).
Затем выполняется цикл повторения, который запрашивает у пользователя размер массива от 25 до nmax.
После этого выделяется память под массив с помощью функции new.
В цикле for i:=1 до n происходит заполнение массива случайными числами от 1 до 100.
Далее идет внешний цикл for i:=1 до n-1, в котором происходит сравнение элементов массива и, если текущий элемент больше следующего, они меняются местами.
После этого выводится отсортированный массив.
Наконец, освобождается память, выделенная под массив, с помощью функции dispose.