Pascal/Turbo Pascal - carlos disculpa

carlos me funciono el programa pero me piden que haga una condicion
si el numeor de articulos sobrepasa los 5 haga un descuento.
como hago para que el if identifique el numero de articulos.

Hola nuevamente Alejo! Con una variable adicional:

i := 0;
repeat
{ingresar articulo}
{guardar articulo}
i := i + 1;
{preguntar si desea ingresar otro producto}
until(condicion = false) or (i = 5);

Un abrazo!