Наполнение массива А(50) случайными числами

const
rn = 100;

var
a: array [1..rn] of integer;
N: integer;
i: integer;

begin
N := 50; // N  количество частей массива, обозначенное в условии задания.
for i := 1 to N do
a[i] := Random(100);
writeln ( Элементы массива: );
for i := 1 to N do
write ( a[i], );
end.