{$Codepage UTF8} Uses sysutils; Var Arch:longint; Cad:String; Begin Cad:='Lorem Ipsum'; Writeln('Creando el archivo ABC.txt'); Arch:=FileCreate('ABC.txt'); FileWrite(Arch,Cad[1],Length(Cad)); FileClose(Arch); Write('Presione enter para borrar el archivo ABC.txt');Readln; DeleteFile('ABC.txt') End.