Pascal/Turbo Pascal - intercambio

hola!!! ocupo lo sig:
tengo un vector q rellene con 0-1 esto aleatoriamente, nesecito q cada vez q aparesca un 1 se corra un espacio, para simular q esta lista avanza.q se mueve....

Hola, mira realmente no entiendo bien que es lo que necesitas, pero si es lo que pienso
haces un ciclo de la siguiente manera

for i:= i to (longituddelvector - 1) do begin {vas recorriendo el vector secuencialmente}
if vector[i] := 1 then {preguntas si el contenido es un uno}
v[i+1] := v[i] {le asignas el uno a la posicion siguiente}
end;

Si no era eso lo que necesitas, volve a preguntar, y veo si puedo ayudart :)

Adios!

El ciclo que has hecho, toma el primer uno que encuentre y lo copia en el resto del vector hasta el final...

Pero da igual porque nat no especifica si está hablando de "espacios" en el vector o en la pantalla...