Pascal/Turbo Pascal - dimenciones

que tal? tengo una consulta, que creo que es simple.
Desearia saber la dimension de un vector, digamos, sacar la longitud.
como lo hago?
pido los ingresos del vector? cuantos procedimientos uso?
2? uno que pida el ingreso del vector y otro que cuente la dimension?
Corrijanme si estoy errado, gracias.

La dimension de un vector se establece en tiempo de diseño, no de ejecución, por ejemplo cuando
var
vector:array[1..10] of integer;
o bien
const
tamano=10;
var
vector : array[1..tamano] of integer;
Ahora bien si quieres establecerlo en tiempo de ejecución debes asumir en tiempo de diseño cuál es el maximo tamaño permitido.
cont
tamano=1000;
var
vector:array[1..tamano] of integer;
i, maximo:integer;
begin
repeat
write('Tamaño del Vector: ');
readln(maximo);
if maximo > tamano then writeln('El vector es demasiado grande.');
until maximo <= tamano;
for i:=1 to maximo do
begin
write('Ingrese valor ',i,': ');
readln(vector[i]);
end;
end.