Pascal/Turbo Pascal - vectores

alguien podria ayudarme con este pedazo de programa el problema es al ejecutarlo se tilda
cuando ingresa el ciclo while

program max_min;
uses crt;
const
ini=1;
max=100;

type
tnum=integer;
trango=ini..max;
tvector=array[trango]of tnum;

var
vector:tvector;
ulpos:tnum;

procedure ingresar(var vector:tvector; var ulpos:tnum);


begin
ulpos:=ini;
writeln('ingrese');
read(vector[ulpos]);
while(ulpos <= max)and(vector[ulpos] <> 0) do; //CA COMENZARIA EL PROBLEMA //

begin
inc(ulpos);
writeln('inrese');
read(vector[ulpos])
end;

if vector[ulpos] = 0 then
dec(ulpos)

end;

begin

ingresar(vector,ulpos);
readkey

end.

no se mas o menos q hace el programa pero, al hacer el while estas haciendo nada
porque vos pusiste: while(ulpos <= max)and(vector[ulpos] <> 0) do;
Ahi vos decis que mientras (ulpos sea menor igual a max ) Y (lo que tenga el vector en la posicion con indice ulpos sea <> 0) hacer nada;
Nota: si queres que despues del while hacer el bloque begin end, no pongas el ; (punto y coma)..
ya que eso le esta obligando al while a no hacer nada..Trata de probar borrandole el ;(punto y coma)
despues del while...