Código Delphi [-] ... Read(Archivo, B1); Read(Archivo, B2); Read(Archivo, B3); ...
... Read(Archivo, B1); Read(Archivo, B2); Read(Archivo, B3); ...