Write a program in which it is carried out: filling randomly an integer array a, consisting

Write a program in which it is carried out: filling randomly an integer array a, consisting of 10 elements, the values of which vary in the range from 0 to 99; displaying array a to the screen

program array_;
var a: array [1..10] of integer; // declare an array of 10 integers
begin
Randomize;
For i: integer: = 1 to 10 do
begin
// element a [i] is assigned a random number in the range 0..99
a [i]: = random (100);
write (a [i]: 5) // display array elements
end
end.