{$Codepage UTF8} Uses sysutils; Begin if RenameFile('afiches/paletas/color.txt','volantes/paletas/color.txt'); then Writeln('Archivo movido con exito') else Writeln('No se pudo mover el archivo'); End.