Pascal/Turbo Pascal - Random negativo

Para meter en un vector numeros negativos, lo hago con random, pero me dice que está fuera de parametros,
.......

type
vecto=array[1..60] of real;
var
i:integer;
v:vecto;
begin
randomize;
for i:=1 to 60 do
v[i]:= random(-100);
end.

Te marca que esta fuera de rango porque la funcion Random espera un parametro de tipo WORD y el tipo word tiene un rango de 0 a 65535

si lo que buscas son numeros aleatorios que siempre sean negativos, simplemente usa el random y a lo que te devuelva lo multiplicas por -1

por ejemplo

for i := 1 to 60 do
v[i]:= random(100) * -1

Ahora que si lo que buscas son numeros negativos y positivos aleatorios entonces podrias usar otro random que te devuelva un 1 o 2, o 0 y 1 como mas te guste, y por ejemplo si fue 1 multiplicas el numero por -1 si no pues no.

recuerda que random (N) devuelve un numero X tal que 0 < = X < N o sea que
random(100) de te devuelve un numero entre 0 y 99, para obtener un numero entre 1 y 100 deberias escribir random(100)+1