1. Вот так учат писать в школе...
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
const
n=10;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=i;
Write(a[i],' ')
end;
Writeln;
end.
Результат выполнения программы
1 2 3 4 5 6 7 8 9 10
2. А вот так пишут "в жизни"
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var a:=Range(1,10).ToArray;
a.Println
end.