Массив numbers[1..50] заполнен случайными числами в пределах от 1 до 100

Const N = 50;
var  
   numbers: array [1..50] of integer;  
    i: integer;
Begin 
   for i:=1 to N do   
      numbers[i] := Random(100); 
  writeln('Элементы массива: '); 
  for i:=1 to N do   
      write(numbers[i],' ');
End.