Массив случайных натуральных чисел

Pas.0010. Напишите программу, которая заполняет массив случайными натуральными числами от 1 до 100 включительно.

Решение.

program RandomIntegerArray;

const
    A_LENGTH = 10;
    RANDOM_MAX = 100;
  
var
    i: integer;
    a: array[1..A_LENGTH] of integer; 
  
begin

    Randomize;

    for i := 1 to A_LENGTH do
        a[i] := Random(RANDOM_MAX) + 1;
  
    for i := 1 to A_LENGTH do
        write(a[i], ' ');
        
end.