Как записать на Паскале "дан массив из 30 целых чисел, не превосходящих по модулю 10000". В частности как вторую часть записать

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

program ArrayExample;

var
arr: array[1..30] of integer;
i: integer;

begin
// заполнение массива случайными числами
for i := 1 to 30 do
arr[i] := random(20000) - 10000; // генерация чисел от -10000 до 9999

// вывод массива
for i := 1 to 30 do
writeln('Элемент ', i, ': ', arr[i]);

end.