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

Текст программы на Паскале:varn: integer;i: integer;spisok: array [1..100000] of integer; //представим список в виде одномерного массиваbeginwriteln (\'Введите число 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 beginwrite (spisok [i]); //выводим все элементы массива(списка) через пробел write (\' \');end; end.