un cronometro de cuenta atras en Adam,SOS

[pacorubio77]

Hola, tengo que hacer una practica, y un apartado es cuando un coche se averie...que espere durante un momento(determinado) ,pero claro tiene que haber una cuenta atras..que me tiene que salir por pantalla...y no se como implementar esa cuenta atrás...

Yo he echo lo siguiente..

....

LOOP
-- exit when (Clock - Comienzo)>10.0;
-- Put_line("se mete");
DELAY UNTIL comienzo+1.0;
Durac:=Fin-Comienzo;
Jaja:=Integer(Durac);
Put(jaja);
Op_Reloj_Averia(Via1).Actualiza_Reloj_Averia(Jaja);--vemos el cast de convertir un tipo duration a entero
-- Jaja:=Jaja-1;
-- Put(jaja);
end loop;

....