Создать файл целых чисел. Найти в каждом числе максимальную и минимальную цифры и записать эту информацию в два новых файла

uses crt;
var f1,f2,f: file of integer;
    j,n: integer;
    i,zmax,zmin: byte;
begin
assign(f,'D:\f.dta');
assign(f1,'D:\f1.dta');
assign(f2,'D:\f2.dta');
rewrite(f);
for j:=1 to 10+random(4) do
    begin
    n:=random(10000)+1;
    write(f,n);
    end;
close(f);
writeln('Файл f заполнен случайным количеством случайных чисел');
writeln('Содержимое файла f:');
reset(f);
rewrite(f1); rewrite(f2);
while not (eof(f)) do
      begin
      read(f,n);
      write(n:6);
      i:=0;
      while n>=1 do
            begin
            inc(i);
            if i=1 then
               begin
               zmax:=n mod 10; zmin:=n mod 10;
               end else
                   begin
                   if zmax<n mod 10 then zmax:=n mod 10;
                   if zmin>n mod 10 then zmin:=n mod 10;
                   end;
            n:=n div 10;
            end;
      write(f1,zmax);
      write(f2,zmin);
      end;
writeln;
reset(f1);
writeln('Содержимое файла f1:');
while not (eof(f1)) do
      begin
      read(f1,n);
      write(n:6);
      end;
writeln;
reset(f2);
writeln('Содержимое файла f2:');
while not (eof(f2)) do
      begin
      read(f2,n);
      write(n:6);
      end;
close(f);
close(f1);
close(f2);
end.