Заполнить массив случайными числами от 1 до 100, вывести массив на экран - Pascal ABC

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

1) Реализовать динамический массив целых чисел, заполнить его случайными числами от 1 до 100, вывести массив на экран.

Решение задачи: «Заполнить массив случайными числами от 1 до 100, вывести массив на экран»

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

var a:^array[1..100] of integer;
    n,i,j:integer;
begin
new(a);
repeat
write('Введите размер массива от 1 до 100 n=');
readln(n);
until n in [1..100];
for i:=1 to n do
 begin
  a^[i]:=1+random(100);
  write(a^[i]:4);
 end
end.

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

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