Реализовать сортировку динамического массива целых чисел - Pascal ABC

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

3)Реализовать сортировку динамического массива целых чисел.

Решение задачи: «Реализовать сортировку динамического массива целых чисел»

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

var a:^array[1..100] of integer;
    n,i,j,x:integer;
begin
new(a);
repeat
write('Введите размер массива от 1 до 100 n=');
readln(n);
until n in [1..100];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a^[i]:=1+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);
end.

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

Создается переменная a типа ^array[1..100] of integer;, которая представляет собой динамический массив целых чисел размером от 1 до 100.
Затем объявляются четыре переменные: n, i, j и x типа integer;. Они будут использоваться для итерации по массиву и выполнения операций сравнения и обмена элементов.
В цикле repeat-until запрашивается у пользователя размер массива от 1 до 100 и сохраняется в переменной n.
В цикле for i:=1 to n do заполняется массив a^[i] случайными числами от 1 до 100 с помощью функции random(100).
Выводится сообщение с размером массива и его текущим состоянием.
В цикле for i:=1 to n-1 do происходит итерация по массиву a^[i] и a^[j] (где j равно i+1). Если a^[i] больше a^[j] то выполняется операция обмена элементов: x := a^[i]; a^[i] := a^[j]; a^[j] := x;.
Выводится отсортированный массив.
В цикле for i:=1 to n do выводится значение a^[i] с помощью функции write(a^[i]:4).