Массив преднозначен для хранения ростов .заполните его случайными значениями из диопозона 150. 190

var
n:integer;

begin 
write('Сколько человек? '); 
readln(n); 
var a:=ArrRandom(n,150,190).Print;
end.