{$codepage utf8} {$ifdef win32} Uses sysutils; {$endif} {$ifdef Unix} Uses sysutils,cwstring; {$endif} Var Arch:File of integer; b:integer; NombreArch:Unicodestring; Begin NombreArch:='numeros.dat'; {$ifdef Unix} NombreArch:='の番号.dat'; {$endif} NombreArch:=SetDirSeparators(NombreArch); if FileExists(NombreArch) then Begin Assign(Arch,NombreArch); reset(Arch); seek(Arch,FileSize(Arch)); //se va al ultimo registro Write(Arch,9999); //escribe el numero 9999 al final seek(Arch,0); //mueve el puntero al inicio del archivo While Not(EOF(Arch)) do Begin Read(Arch,b); Writeln(b) End; close(Arch) End; End.