Pascal/Turbo Pascal - no me sale el siguiente ejercicio

Completar el siguiente programa para que asigne a la variable n el número de valores enteros positivos consecutivos, partiendo desde el 1, que suman el valor mas próximo por defecto al valor de la variable cota no negativa y menor o igual que 32000.

var suma,cota,n:word;
begin
{se asigna a cota un valor aleatorio <= a 32000}
cota:=random(32001);
n:=1;




writeln('hace falta sumar', n,' valores');
end.