Получить и вывести на экран случайное целое число из интервала [-10,17]

Var n, i, x: integer;
begin
randomize();
n := 1;
for i := 1 to n do
beginx := random (-10,17); 
writeln(x);
end;
end.