Foro de elhacker.net

Hola, se me pidio hacer este ejercicio: Suponga que desea saber que "perfil" tienen sus llamadas telefónicas. Para ello realizará un programa que solicite la duración de las llamadas y calcule:
 la duración total de sus llamadas
 el valor medio
 el número total de llamadas
 y los presente por pantalla.

hago el codigo pero no me pasa de leer la instruccion, les dejo el codigo a ver si ustedes me pueden ayudar, gracias

Program Llamada;
 
Uses
 CRT;
Var
 Numero:real;
 D:Real;
 Media:Real;
 dtotal:Real;
 d1:real;
 
Begin
 Clrscr;
 Writeln('Duracion de llamada (0 para terminal): ');
 Readln(d);
 Dtotal:=0;
 
While (d>0) do
 
Begin
 dtotal:=dtotal+d;
 Numero:=numero + 1;
 d1:=d + d;
End;
 Media:= dtotal/numero;
 Writeln('Numero de llamadas: ', numero);
 Writeln('Duracion total: ',dtotal);
 Writeln('Duracion media: ', media);
 Readln;
End.