Создать файл случайных целых чисел типа byte и вывести из него на экран чётные числа - Turbo Pascal

const n=10;
var
  f:file of byte;
  b:byte;
  i:integer;
begin
  randomize;
  assign(f,'byte.dat');
  rewrite(f);
  write('Written data:');
  for i:=1 to n do begin
    b:=random(High(Byte));
    write(b,' ');
    write(f,b);
  end;
  close(f);
  reset(f);
  writeln;
  write('File:');
  while not eof(f) do begin
    read(f,b);
    write(b,' ');
  end;
  writeln;
  seek(f,0);
  write('Not odd numbers:');
  while not eof(f) do begin
    read(f,b);
    if not odd(b) then write(b,' ');
  end;
  close(f);
  readln;
end.