Заполнить массив из восьми элементов. вывести значение запрашиваемого элемента.

Var i:integer ;
n :array[1..8] of integer;
begin
randomize;
 for i := 1 to 8 do 
 readln(n[i]);
 writeln ('порядковый номер числа на вывод?');
 readln(i);
writeln (n[i]); 

end.