program editafechaprueba;
uses crt,utileria;
var
fecha:string[10];
tecla:char;
begin
textattr:=15+0*16;
clrscr;
textattr:=15+0*16;
gotoxy(10,10);write('Fecha : ');
tecla:=EditaFecha(Fecha,18,10,14,1);
textattr:=15+0*16;
gotoxy(10,20);write('El resultado es : ',Fecha);
readln;
end.