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

uses crt;
type mas=array[1..100] of integer;
procedure p(n,idelem:integer; a:mas; var flag:boolean);//в функции выясним меньше ли элемент a[1]
var i,id:integer;                                  //и расположен ли он правее последнего элемента кратного 9
begin
     id:=0;//id - последний элемент, кратный 9
     for i:=1 to n do
         if a[i] mod 9=0 then id:=i;
     if (idelem>id) and (a[idelem]<a[1]) then flag:=true
     else flag:=false;
end;
procedure find(a:mas; n:integer; var max:integer; var f:boolean);
var i,id:integer;
    flag:boolean;
begin
     id:=0;//найдем последний элемент кратный 9 для того,
           //чтобы потом следующий за ним элемент записать как начальное значение max
     for i:=1 to n do
         if a[i] mod 9=0 then id:=i;
     max:=a[id+1];
     for i:=1 to n do
     begin
          p(n,i,a,flag);//проверяем элемент a[i]
          if (flag) and (a[i]>max) then max:=a[i];
     end;
     f:=false;
     for i:=1 to n do
     begin
          p(n,i,a,flag);
         if (a[i]=max) and (flag) then begin max:=i; f:=true; end;
     end;
end;
var a:mas;
    i,max,n:integer;
    flag,f:boolean;
    f1,f2:file of integer;
    path1,path2:string;
begin
     writeln('Введите путь к входному файлу: ');
     readln(path1);
     assign(f1,path1);
     reset(f1);
     i:=1;
     while not (eof(f1)) do
     begin
          read(f1,a[i]);
          inc(i);
     end;
     close(f1);
     n:=i-1;
     writeln('Считанный массив: ');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     find(a,n,max,f);
     if f then begin
        writeln('Номер максимума: ',max);
        writeln('Введите путь к входному файлу: ');
        readln(path2);
        assign(f2,path2);
        rewrite(f2);
        write(f2,max);
        close(f2);
        end
     else writeln('Максимум не найден!');
end.

var f:file of integer;
    n,a,i:integer;
begin
randomize;
assign(f,'fileF');
rewrite(f);
write('Сколько чисел записать в файл F n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(50);
  write(f,a);
 end;
close(а);
end.