{$codepage utf8} {$ifdef win32} Uses sysutils; {$endif} {$ifdef Unix} Uses sysutils,cwstring; {$endif} Var Arch:File; b:array [1..10] of longint; i:integer; bloquesleidos,bloquesescritos:longint; Begin Assign(Arch,'numeros.dat'); {$ifdef Unix} Assign(Arch,'の番号.dat'); {$endif} Rewrite(Arch,4); //cada bloque de 4 bytes Randomize; for i:=1 to 10 do b[i]:=random(1000); Blockwrite(Arch,b,10,bloquesescritos); //grabar los diez bloques //si se escribieron los 10 bloques entonces mostrarlos if bloquesescritos=10 then Begin Reset(Arch,4); Blockread(Arch,b,10,bloquesleidos); for i:=1 to bloquesleidos do Writeln(b[i]); End; close(Arch) End.