Pascal/Turbo Pascal - ayuda!!

hola qonda tengo un problema, voy en secundaria y stoyviendo turbo pascar pero no es como los eh visto n internet, es mucho mas cimple, aca ay un ejemplo .
estoy viendo el ciclo while y tengo q hacer un programa q pida numeros indefinidos y calcule su promedio pero de acuerdo a lo q entiendo tengo q usar un contador pero no se como... ayudenme!!!!

El programa seria asi, usas un centinela para poder salir del ciclo, porque obviamente que si fuera infinito no terminaria nunca.
El centinela, es un valor elegido por el programador, para que si se inserta ese valor, salga del ciclo. En este caso en particular, elegi el 0.

Program Promedio;

Uses
Crt;

Procedure ObtDat(var x:integer);
begin
Writeln('Ingrese un valor: ');
readln(x)
end; {procedimiento Obtener Datos}

Const
CENTINELA = 0;

var
n,tot,i:integer;
prom:real;

begin {bloque principal}
clrscr;
tot:=0;
prom:=0;
i:=0;
ObtDat(n);
while n <> CENTINELA do begin
inc(i);
tot:=tot + n;
prom:=tot/i;
writeln('El promedio es: ',prom:2:4);
ObtDat(n);
clrscr
end
end.

Espero que te sirva.
Un abrazo!