Запросить у юзера число n. Построить связный перечень из n элементов,

Текст программы на Паскале:

var
n: integer;
i: integer;
spisok: array [1..100000] of integer; //представим перечень в виде одномерного массива
begin
writeln (Введите число n: );
readln (n);
for i := 1 to n do begin
spisok [i] := (random(11) - 5); //присваем случайные значения от -5 до 5 каждому элементу массива(перечня)
end;
writeln (Приобретенный список: );
for i := 1 to n do begin
write (spisok [i]); //выводим все элементы массива(списка) через пробел
write ( );
end;
end.