program FillArray;

var
arr: array[1..10] of Integer;
i: Integer;

begin
Randomize;

for i := 1 to 10 do
begin
arr[i] := Random(101); // генерация случайного числа от 0 до 100
end;

for i := 1 to 10 do
begin
Write(arr[i], ' ');
end;

end.