Заповніть масив А натуральними числами від 1 до 10 та вивести його на екран у рядок.(Паскаль)

не до конца понятно как именно надо заполнять потому два вариантаbegin    ArrRandomInteger(10, 1, 10).Println;    ArrGen(10, 1, x -> x + 1).Println;end.или такconst    n = 10;var    a: array[1..n] of integer;    i: integer;begin    for i := 1 to n do     begin        a[i] := i;        write(a[i], );    end;    end.