Типизированный файл с 1000 случайных чисел - Turbo Pascal

uses  crt;
var
  f: file of byte;
  a:byte;
  i:integer;
begin
clrscr;
randomize;
assign(f, 'file');
rewrite(f);
for i:=1 to 1000 do
 begin
  a:=random(256);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
i:=0;
while not eof(f) do
 begin
 read(f,a);
 write(a:4);
 i:=i+1;
 if i mod 400=0 then
  begin
   write('Press Enter');
   readln;
  end;
 end;
close(f);
readln
end.