Программа, которая записывает в файл типа byte 100 случайных чисел от 0 до 255

program kontra;
uses crt;
var a, i , d:byte;
f:file of byte;
fname:string;
BEGIN
 clrscr;
 writeln('Введите 1 для вывода данных в файл или 2 для вывода на экран');
 repeat
 write('-> ');
 readln(d);
 if (d<1) or(d>2) then
 writeln('Данные введены не корректно, введите заново:');
 until (d=1) or (d=2);
 
 if d = 1 then
 begin
    assign(f,'c:\file.bin');
    rewrite(f);
 
    for i:=1 to 100 do
     begin
      a:=random(255);
      write(f,a);
     end;
     close(f);
  clrscr;
  writeln('Файл записан и доступен по адресу: c:\file.bin');
  writeln('Введите 2 для вывода на экран или 1 для перезаписи в файл');
   repeat
   write('-> ');
   readln(d);
   if (d<1) or(d>2) then
   writeln('Данные введены не корректно, введите заново:');
   until (d=1) or (d=2);
 end;
 
 if d = 2 then
 begin
   for i:=1 to 100 do
   begin
    a:= random(255);
    if a mod 2 = 0 then
    textcolor(4)
     else
     textcolor(1);
     writeln(a);
    end;
  end;
 readln;
END.

program kontra;
uses crt;
const n=100;
var a, i , d:byte;
    f:file of byte;
    fname:string;
BEGIN
clrscr;
randomize;
assign(f,'file');
rewrite(f);
for i:=1 to n do
 begin
  a:=random(256);
  write(f,a);
 end;
seek(f,0);
writeln('Содержание файла:');
while not eof(f) do
 begin
  read(f,a);
  if a mod 2=0 then textcolor(12)
  else textcolor(9);
  write(a:4);
 end;
readln
end.