сформировать и вывести на экран последовательность из n элементов заданным датчиков

Uses crt;

type
massiv = array [1..100] of integer;
var
mass : massiv;
n , i : integer;
begin
clrscr; // очищаем экран

randomize; // включаем генератор случайных чисел.

write('Введите кол-во частей массива : '); readln(n);

for i:=1 to n do
begin
mass[i] := random(58) - 23;
write(mass[i], ' ');
end;
readln;
end.