{$Codepage UTF8} Uses Sysutils; Var Arch:Longword; cad:ansistring; Begin Arch:=FileOpen('CON',fmOpenRead); FileRead(Arch,cad[1],4); //Lee 4 bytes desde el teclado Fileclose(Arch); Arch:=FileOpen('CON',fmOpenWrite); FileWrite(Arch,cad[1],4); FileClose(Arch); End.