Имеется типизированный файл с числами

program  zdch1b;
uses crt;
const n=15;
var f:file of integer;
i,a,min:integer;
 
procedure sozd_file;
var i:integer;
begin
        rewrite(f);
        for i:=1 to n do
        begin
        a:=random(10);
        write(f,a);
        end;
        close(f);
end;
 
procedure vivod_file;
begin
        reset(f);
        while not eof(f) do
        begin
                read(f,a);
                write(a,' ');
        end;
        writeln;
end;
 
BEGIN
clrscr;
randomize;
assign(f,'laba35.fint');
sozd_file;
vivod_file;
min:=maxint;
reset(f);
while not eof(f) do
begin

var
  f: file of integer;
  m, mi, n, i: integer;
begin
  Assign(f, 'data.bin');
  Reset(f);
  i := 1; Read(f, m);
  while not eof(f) do begin
    Read(f, n); inc(i);
    if n < m then begin
      m := n;
      mi := i;
    end;
  end;
  Close(f);
  WriteLn('min = ', m, ' at ', mi);
end.

program  zdch1b;
 
const n = 15;
 
var f: file of integer;
    i, a, min, imin: integer;
 
begin
  randomize;
  writeln('Source file:');
  assign(f, 'laba35.fint');
  rewrite(f);
  for i:=1 to n do
    begin
      a := random(100);
      write(f, a);
      write(a:3)
    end;
  close(f);
  writeln;
  min := maxint;
  reset(f);
  i := 0;
  while not(eof(f)) do
    begin
      i := i + 1;
      read(f, a);
      if min > a then
        begin
          min := a;
          imin := i
        end
    end;
  writeln('Number of min element is ', imin);
  readln
end.