Problema con pascal

[Julyamnis]

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

Código (pascal) [Seleccionar] Expandir

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.