Pascal/Turbo Pascal - Ayuda con un programa

Disculpen quisiera sabe r si me pueden decir como hacer un programa que calcule la media (que la cantidad de numeros sean introducidos por el usuario)

Bueno, supongo que la media viene a ser el promedio:

var Total:integer;
Introducidos:integer;
Aux:integer;

begin
Total=0;
Indtroducidos:=0;
repeat
write("Ingrese un número (-1 para salir):");
readln(Aux);
if Aux<>-1 then
begin
inc(introducidos);
Total:=Total+Aux;
end;
until Aux=-1;

writeln("El promedio es:",Total div Introducidos);

end;

Saludos.

gracias