Pascal/Turbo Pascal - ¿Cómo hago para que muestre un mensaje si no se ha producido ninguna llamada?

{ Me falta solamente que indique si no se han llegado a producir llamadas, si introduce un "0" en el primer mensaje de "('Duracion de la llamada (0 para terminar)" }

var

duracion: real;

llamada:  integer;

tiempo:   real;

begin

llamada := 0;

duracion:=0.0;

tiempo := 0.0;

repeat

      write('Duracion de la llamada (0 para terminar): ');

      read(duracion);

      readln();

if duracion > 0 then

begin

tiempo := tiempo + duracion;

llamada := llamada + 1;

end;

until duracion=0;

      writeln('>  Numero de llamadas: ',llamada);

      writeln('>  Duracion total: ',tiempo:0:1);

      writeln('>  Duracion media: ',(tiempo / llamada):0:1);

      readln();

end.

Uses CRT;

var

duracion: real;

llamada:  integer;

tiempo:   real;

begin

llamada := 0;

duracion:=0.0;

tiempo := 0.0;

repeat

    write('Duracion de la llamada (0 para terminar): ');

    read(duracion);

    readln();

if duracion > 0 then

begin

tiempo := tiempo + duracion;

llamada := llamada + 1;

end;

until duracion=0;

    clrscr;

    if tiempo=0 then

        writeln('No ha habido llamadas.')

    else

        begin

          writeln('>  Numero de llamadas: ',llamada);

          writeln('>  Duracion total: ',tiempo:0:1);

          writeln('>  Duracion media: ',(tiempo / llamada):0:1);

        end;

           readln();

end.