{$Codepage UTF8} Uses sysutils; Var Archivo:TSearchRec; UltimaModificacion:Double; Begin UltimaModificacion:=FileDateToDateTime(FileAge('Ejemplo05.pp')); Writeln(FormatDateTime('dd/mm/yyyy tt',UltimaModificacion)); End.