Pascal/Turbo Pascal - Urgente:Lectura de inventario

Tengo problemas para desplegar por pantalla una lista de articulos que tengo en un archivo de inventario.
Hasta ahora lo que he logrado es desplegar los artículos pero uno por uno, he utilizado un contador auxiliar que me incremente la fila al terminar de desplegar el primer archivo pero aun así no hay forma, solo me despliega un articulo a la vez; apreciaría muchísimo que me pudieran ayudar con esto.
Gracias por su soporte...

No entendi muy bien porque no es que no puedes desplegar todos los articulos.